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Kaere data-freak! 

Velkommen til TAST. Et helt nyt blad. pakket med pro- 
grammer-programmer-programmer fra forste til sidste 
side. Alle sammen gennemprovede forfejl og lige klartil at 
taste ind I din egen puter*. 

Vi haber. at du far mange timertil at ga. Her i den kotde tid 
er der jo ikke noget som at lune sig op ad en varm data- 
ska? rm... 

Fa foroget din softwaresamling med TAST. Og la?r samti- 
dig nye fifs om programmering eller byg selv videre pa de 
fcerdige listninger. TAST er dit nye taste-blad! Danmarks 
tykkeste af sin art 

Rasmus Kirkegard Kristiansen, 

Chefredaktor 
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Samtiige aftrykte listninger er 
afprevede for offentliggorelse. 
Forlaget betaler skattefrit op 
til 1 000 kroner for godkendte 
laeserprogrammer. Forlaget 
har ret til aftrykte. godkendte 
programmer I bladet og m5 of- 
fentliggtfre dem p3 andre la- 
germedia. Afsender garanterer 
for programmets ortginalrtet 

Distribution; OCA 



TAST udglves af forlaget *ny eiek 
tronik", der ogsA udgiver "SOFT*. 
"Alt om Data*, "COMputer*. *Sven- 
ska COMputer" og *ny elektronik*. 
Sosterforlaget Audio udgiver end- 
videre "high fidelity* og HI-FI- 
Srbogen. 

TAST accepterer listninger til alle 
markedets mikroer. blot skal de 
vzere skrevet i det til maskinen 
mest benyttede sprog. 






Du kender sikkert situotbnen: Efter mange 
longe timer foran computeren virker din ind- 
tastede listning stadig ikke. Hvad du so gor? 
LaeserBjom Chrisfs guide til selv of Hnde fejl pa 
en effektiv mode. 



Du holder i dette fljeblik detaller- 
mest omfattende programblad i 
hele Norden. DesvzErre haralting 
jo en skyggeside. for dette b sad har 
nemlig indhold nok til ca. 3400 
minutter eller 55 timers koncen- 
treret arbejde. Vel at rraerke ti- 
mer, hvor du virkelig rislider og 
sveder, sA geofysikeme advarer os 
om stigninger I vandstanden. 
Alle programmer her i " TAST 
Special* er gennemtestede Inden 
tiykningen og med garantl for. at 
de virker Alllgevel erdet sjsldent 
et indtastet program kflrer per- 
fekt farste gang, du njn'er det 
Den situation kender selv garvede 
programmerer alt til. idet meget 
af de professionelies tid g3r med at 
gennemteste og finde fejl. sA pro- 
grammet geres bed re. 
Derfor: Det er meget normalt at 
derofte-OFTE-kommerensmut- 
ter ind I programmet En regular 
indtastningsfejL 

Hvad duligestdrog mangier eralt- 
sA en vejlednmg ( at afbugge dine 
fede SOFT-programmer. Og her 
har du varen. 

Fejftyper... 

Antallet af forskellige fejl. der kan 
opstl er uendeligt stort for fejl 
har en evne til at formere sig. PA 
det kebenhavnske universitets da- 
taafdellng har de Ilge haft en kon- 
kurrence. hvor opgaven var at lave 



et program sA lille som mullgt 
men med det hajeste antat fejl I 
Den suveraene vinder blev et hold, 
der fik 14 forskellige fejludskrif- 
ter. Programmet folger her: 
IF 

AltsS, en fejl bliver let og elegant til 
mange. Derfor kan en enkel lille 
indtastningsfejL f.eks. i en 'DATA'- 
Seething, give de mest ustyrhge 
oplysninger. 

Som en grov opdeiing skelner jeg 
meilem tre fejl-typet Indtast- 
ningsfejL syntaksfejl og semanttk- 
fejl. Henrad en forklaring af de be- 
greber, der virkelig forpester en 
programmers tilvserelse. 
Lad os tage tyren ved homene og 
starte med indtastningsfejL 



Indtastningen 

Indtastningen er den proces at 
bringe et program pA hvad man 
kalder 'maskinla?sbar" form 
(datafangst). Indtastning er en 
helt mekanisk proces, dvs. sknj op 
for aniaegget og ned for omdrej- 
ningshastigheden i kuplen. Lad for 
guds skyld vsere med at begynde 
at sm&endre i programmet. mens 
du taster ind. Hvis du g0r det, kan 
du bllve helt rundt pA gulvet. og 
ude af stand til at terdiggare dit 
program, Det bliver simpelt hen 
for svsert at overskue konsekvan- 
serne af de sendnnger. da de ofte 



medfarer. at dele af programmet 
ogs5 senere hen pdvirkes af deny 
Vent med a?ndringeme til bag- 
efter. Hvis du derimod vil spare tid. 
og ikke gider indtaste REM-sat- 
ningeme. sS lad g3. De er kun be- 
meerkninger og har INGEN ind- 
virkning pA programmets k0rseL 
Hvis du kan. sA telg nedenstSende 
'algoritme* nAr du taster et pro- 
gram ind. Lidt kedelig er den. men 
n3r man er fserdig. er den sin ragt 
va?rd i sved. 

1 . Skriv een linje ad gangen. 

2. Check om du har skrevet den 
korrekt ind, 

3. Naeste linje. 

4. Efter ca. 50 linjer, SAVE pro- 
grammet! 

N3r du endelig er bievet faerdig. 
har du sikkert allerede undgSet en 
masse fejl ved lige at checke en en - 
kelt gang. Men der skal nok have 
indsneget sig nogle barske fejl. Ba- 
re rolig. Dem tager vi fat pA nu. 

Syntaksfejl 

N5r du "RUN"er dit program, og 
det ikke er PAC-man. men noget 
maerkeligt engelsk. der dukker op 
pA staermen, har programmet 
h0jst sandsynllgt en syntaksfejl. 
Syntaksfejl opstfir. nAr dit pro- 
gram ikke ffllger syntaksen. (eller 
grammaOkken som det egentlig 
er). for den BASIC-dialekt du har i 
computeren. Da Basic en er for- 
skellig fra mikro til mikro. kan jeg 
ikke give andet end en generel 
hjfflp. De speefflkke detaljer mS 
du selv slA op i instruktlonsbogen. 
Nogle Basic-versioner. \sa*r pA de 
mindre mikroer, giverkun een syn- 
taksfejl for hver karseL Dette be- 
tyder desvsrre. at dit program 
mSske har bunker af fejl. og der- 
med vil det ikke fungere. bare fordi 
du retter en enkelt 
En sur falge af dette er overdreven 
tidsforbnjg ved din datamat Den 
bedste metode. (menerjeg)* til- 



Syntaksfejl -ret nlng er sddan: 

1. Ker program. 

2. Find ud af hvilke/n fejl fortolke- 
ren melder. Som regel vil derbli- 
ve udskrevet en lille tekst og en 
kode. og denne kode erat finde i 
et appendix bag i din bruger- 
manual. 

3. Ret den fejl du fandt og evt lig- 
nende fejl andre steder i pro- 
grammet 

4. SAVE det rettede program ofte. 
Altid inden du kflrer det. og n5r 
du forlader datamaten. 

Det kan vaere indlysende. hvilke 
fejl der er tale om (fortolkeren 
fortaeller dig nogle gange direkte. 
hvad der er gait), Hvis det sker ret- 
ter du blot fejlen. og karer pro- 
grammet igen. Husk endelig at 
rette flere steder 1 programmet. 
hvis den meldte fejl er en gennem- 
gdende fejl. 

De fieste fortolkeres fejlmeldln- 
ger er desvasrre tit helt hen i vej- 
ret Og hvis man fir en ikke umid- 
delbart gennemskuellg fejlmedde- 
lelse. sA slap af - det er ikke dig den 
er gal med. 

Kan man ikke forstd fejlen. sA m& 
man enten snyde fortolkeren eller 
sege hjselp. 

Fortolker-snyd er nemt nok. Det 
du vil ha\ er de efterfaigende 
fejlmeddelelser. sA du kan se om 
du sidder med en eller flere m<eri<- 
vasrdigheder. 

Det nemmeste er at g*re den fejl- 
behceftede del af programmet til 
en REM-sa?tning. Eftersom over- 
s^tteren ikke bet^mrer sig om 
REM's.vilden overspringedenfeji- 
behseftede programdel. 
Hjselp til n0dsrtuationer tAs i ma- 
nualer. og den uttimative nod- 
situation vender jeg tilbage tiL 

SemantikfeJI 

Jajajeg ved godt ( deterkedeligt, 
men det kan spare dig for tid - sA 
nu Sbner vi op for flere fejl 
Ndr programmet erfri for syntaks- 
fejl, er du i stand til at foretage en 
k0reeL At kunne foretage en kar- 
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sel, er desvcen-e tkke ensbetyden- 
de med t at programmet er fejlfrit 
Et program bestir n<esten altid af 
sm3 sammenkaedede dele, proce- 
dures funktfoner t t0kker etc. etc. 
Det der normalt kan ske. er at 
nogle af de mange yderomnSder, 
nlcher eller bittesma granseflader 
ikke vil virke. F.eks. bane nn 164 i 
Pacman eller udskriften af en kur- 
ve over en hyperfcel I rummet 
Det er i disse ydertilfeide at pro- 
grammet. pA trods af testningen* 
kan gi ned. 

TVpiske semantik4e|l er FOR- 
NEXT Ifckker. hvor tael levari ablen 
Ikke kan ende pA det t den skal. 
Eks.:FOR I-1T05STEP.15 
NEXT I 

Varlablen vll komme til 4.9 og der* 
efter springe til 5,05 uden at be- 
m<erke at den skulle stoppe ved 5. 
Fejlen kan ogs3 va?re mere udspe- 
kuleret: 

Eks.; FOR 1-1 TO 5 STEP 1/3 
NEXT I 

Variablen vil Kelle tredledele (tror 
man), men i virfceligheden vil usik- 
kerheden pA udregnlngen af 1/3. 
gare at resultatet afviger fra 1 /3. 



Dette skyldes den begra?nsede la- 
gerplads i alle maskiner. Hele det- 
te emne om fejlafrunding, er en af 
datalogiens hovedproblemer. ma- 
tematikere bryder deres hoveder 
for at finde en I0sning, men intftil 
nu ■ nej. 

Andre fejl kan vsre uendelige 
loops, {det ulyksagllge GOTO), fejl 
i SKtninger med IF. THEN. EiSE. 
AND, OR osv. 

Hvad dereraller-vigtigstvedaflus- 
ningen af denne slags fejl. er at du 
ved hvad der sker p5 de forskellige 
stadier I dit program. Dette er des- 
vaerre umSdellgt svaert n£r man 
sldder med en andens program. Af 
og til vll der opstfi fejlsltuationen 
som virkelig er rS. Du ved ikke. 
hvad du skal gere. 
Det kan da vsere nadvendigt at 
indsastte betingede sknves^tnln* 
ger pA centrale steder i program- 
met- Du kan pi den mSde skaffe 
dig indsigt i programmes forlflb, 
og du kan udskrive f.eks. centrale 
varlabler undervejs i programmet. 
Hvis vi tager vores program fra fair: 
FOR I- 1 TO5STEP0.15 
NEXT I 



Programmet er en del af et sterre 
program, og vi kan Ikke umiddel- 
bart se hvad. der er gait, Derfor 
sa?tter vl simpelt hen print-sa?t- 
ninger ind over det hele til at ud- 
skrive variables 
FOR 1-1 TO 5 STEP 0.15 
PRINT I 
NEXT I 

Under kflreel af programmet vil vl 
nu se varlablen I blive stprre end 5. 
og vl kan da se fejlen. 
Hvis program-udftsrelsen er for 
hurtig. supplerer du med PAUSE 
telL WAIT saetninger. 



Aflusning Ikke afdansning! 

At afluse programmer er ikke 
sjovt For det f0rste er det lang- 
somt og for det andet er det ikke 
sikkert at man nogen sinde finder 
fejlen. Skuile du en dag befinde dig 
i sldste situation. m3 du gribe til 
sidste n0dl(»sning. Ringe til pro* 
grameksperteme. Vi sidderved te- 
lefoneme hver toredag me 1 1 em 14 
og 16. NummereterOl 91 2833. 
Du kan ogsfl henvende dig skrift- 
ligt. og vi skal af hele vort hjerte 
pnave at hjselpe dig. Husk bare, 
programmers i bladet ALTID vir- 
ker i det store og hele. sA hvis du la- 
yer en indtastningsfejl, kan vi kun 
prove at hjcetpe. 



Vigtigt tip 



COMMODOBM 

OPLYSNING TIL UDUSTN1NGERNE 



Nar du ser 


Betyder det 


Dutrykker 


(OR) 


Screen clear 


SHIFT CLR/HOME 


(HOME) 


Home cursor 


CLR/HOME 


(CRSR NED) 


Cursor ned 


CRSR OP/NED 


(CRST OP) 


Cursor op 


SHIFT CRSR OP/NED 


(CRSR H0JRE) 


Cursor rtejre 


CRSR H0JRE/VENSTRE 


(CRSR VENSTRE) 


Cursor venstre 


SHIFT CRSR H0J RE/VENSTRE 


(DEL) 


Delete tlibage 


INST/DEL 


(INST) 


Insert 


SHIFT INST/ DEL 


(RETURN) 


Return 


SHIFT RETURN 


(SPACE) 


Space 


SPACE 


(RCS ON) 


Reverse on 


CTRL 9 


(RVSOFF) 


Reverse oft 


CTRL 0 


(SORT) 


Sort 


CTRL 1 


(HVIO) 


Hvid 


CTRL 2 


(R0O) 


Rfld 


CTRL 3 


(CYAN) 


Cyan 


CTRL 4 


(ULLA) 


LMa 


CTRL 5 


(GR0N) 


Gran 


CTRL 6 


(BLAA) 


BU 


CTRL 7 


(GUL) 


Gul 


CTRL 8 


(ORANGE) 


Orange 


COMMODORE 1 


(BRUN) 


Brun 


COMMODORE 2 


(LR0D) 


Lysernd 


COMMODORE 3 


(GRAA1) 


Gra 1 


COMMODORE 4 


(GRAA2) 


Gra 2 


COMMODORE 2 


(LGR0N) 


Lysegren 


COMMODORE 6 


(LBLAA) 


Lysebla 


COMMODORE 7 


(GRAA3) 


Gr3 3 


COMMODORE 8 


(Ft) 


Funktionstast 1 


F1 


<F2) 


Funktionstast 2 


F2 


<F3) 


Funktionstast 3 


F3 


(F4) 


Funktionstast 4 


F4 


(F5) 


Funktionstast 5 


FS 


(F6) 


Funktionstast 6 


F6 


(F7) 


Funktionstast 7 


F7 


(F8> 


Funktionstast 8 


F8 
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GAMES 



Commodore 64 

Hyperormen 

Du er en lang orm. Skal kravle 
njridt i en stor have. Splse aebler. 
Og samtidig undga at banke ind t 
murene. Aiietiders ambition? 
Well, sa er det blot at fa smidt pro- 




10 REn *••* *• 

12 REH * HYPER ORM JR. • 

14 REH •#—**•*••*•**♦**»•****•- 

IB REn * P ZfiCCHI * 

IB REn ■ — 

eo REn • UERSION 2.0 CBn 64 * 
22 REH ••••♦•••*«***•*♦*••#*•»• 

54 REn 

100 POKE 532B1,0:POKE 53390.2 
:Dln PQ\CB200):Din B0C24) 

i GOTO 3000 
102 P0-121:DICD — *M:BICS>-ltDIC3>*Mfl 
,DH4) — !;DP-2:HA-0:O5:HO-0 
:S-S4272 

104 POKE S32BS.PEEKC532B5-P1N0 239 



135 T-SS296:K-1024 

10B POKE 3*24 , 15: POKE S*5,176 
: POKE S*1,30 ; POKE 3*12,15 
:POKE S*11,16:PDKE S*13,240 

113 PRIMT"(CLR,SORT 1 CRSR DP.SPACE15, 
GUDKYPER ORn JR. 

112 FOR A-l TO 23:PRINT"CBRUN)AAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" 

t NEXT 

114 PR INT"AAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAC CRSR OP) " 

11B PRINT"CHOnE,CRSR NED) " 

: FDR TO 20:PR!NT"(BRUN, 

CR5R H0JRE.SPfiCE37)":NEXT 

118 PPlNT"CHOnE,BUL,CRSR NED23 , 
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CRSR H0JRE3>LEUEL"L 

:PR1NT"CCRSR DP, CRSR HOJRElSjSCOR 

E"SC 

120 PRINT"CCRSR OP, CRSR H0JRE27)APPL 
ES"AP 

125 FOR B-0 TO 1 : FDR BT-BDCLE^TO BDC 

LE-USTEP BDC : POKE K-ET , S3 

:NEXT : LE-LE+3: NEXT 
184 POKE 53265. PEEKC53255:tOR 16:YT-1 

:GQTQ 516 
156 POKE S+4. 158: POKE 9*4,129 

:FOR CD-I TO 13: GET AS 

: IF AS-" "THEN 132 

129 IF AS-". "THEN OR-DR+1 

:IF DR-5 THEN DR-1 : COTQ 132 

130 IF A*-", "THEN DR-DR-1 
: IF DR-0 THEN DR-4 

135 PO-PO*DICDR) :HO-HO--l :PQr t CHO)-PO 
:C-C-1:HA-HA-CC<03 

131 P-PEEKCK+PO} : IF P<> 35 THEN GOTO 
500 

136 POKE K+P0,27:P0KE T-P0.7 
: POKE K-PO*CHO-l) ,2B 

: POKE T-PO%CHO-13 ,5 
13B POKE K+PO\CHA) , 32 
140 NEXT : GDTO 126 
500 IF P-15 THEN 5000 
S02 IF PO30 THEN 600 

504 POKE K*PO,32:SC-SC-5:C-HP: AP-AP-1 

505 POKE S-U,17:F0R A-l TD 20 
: PDKE 5-B,RNDC0)»80-10:NEXT 
: POKE S*B,0:POKE 5*11,16 

509 POKE S+4, 1SB 

510 PRINT"CHGME,GUL,CRSR NED23 , 
CRSR H0JRE3*JLEUEL"L 
iPRINT"CCRSR 0P.CR5R HOJRE15jSCQR 
E"5C 

512 PRINT"CCRSR OP, CRSR H0JRE27JAPPL 
ES"AP 

514 IF AP-0 THEN PRINT"CHDflE, 

CR5R NED, CRSR HO JRE16 , ORANGE ) A 
CGUL^ACSORT, SPACE, GUL J At ORANGEY A" 
:GQTO 136 

516 AX-!NTCRNDC0)*36)+1 
: AY-]NT<RNrK0:<*19}-»2 

519 IF PEEKCK+AX*AY*40)<>32 THEN 516 

520 POKE K-AX+AY*43,30 

:POKE T+AX+AY*40,2: IF YT-1 THEN Y 
T-0:GOTO 126 
522 GOTO 136 

600 POKE S+S,10:POKE S-1,20 

:POKE 5*4. 15B: POKE 5-4 , 159 

: POKE K*PO";CHO-1 > . 31 
602 FOP A-l TO 10; POKE 53270, 

( PEEK C 53270 J AND 24BV 1NTC RNDC0>*6 

3+1: NEXT 

604 POKE 53570, CPEEKC535703 AND 54B>-0 
606 FOR A-HA TO HD-2:P0KE K- PO'-if A) , 32 

: NEXT: FOR B-l TO 2000: NEXT 
6CB PRINTVGUL.CLR.CRSR NED 10 , 

CRSR H0JREB>AK ' AK' DIN 0R(1 ER DO 

0! " 

610 PRINT"CGRON.CRSR NED2, 

CRSR H0JRE11JDU FIK"SC"P0INT5" 

612 POKE 5*11,16: POKE 9-11,17 
:FOR A-50 TO O STEP-2 
:FOR E-A TO O STEP-5:PDKE 5-8, B 

614 NEXT: NEXT: FOR A-l TO 3000:NEXT 

616 SC-0: AP-B:LE-0:L-1:HP-S 

:PR1NT"CCLR,BRUN,CR5R NE04 , 
CRSR H0JPE 10*» AAAAAAAAAAAAAAAAAA " 



61B PR1NT"(CRSR H0JRE10)ACGRAA3 , 

RUS OFF. SPACES 5 HYPER QRH JR.CBRUN, 
SPACE. "i A" 

620 PRINT"CCRSR H0JRE10."'AAAAAAAAAAAAA 
AAAAA" 

655 PRINT"CGRAA3, CRSR NED3, 

CRSR H0JRE12JAF PER ZACCHI" 
654 PRINT"CCRSR NED , CRSR H0JRE9) (C)l 

995 SOFT SPECIAL " 
626 PRINT"CCRSR NED4 , CRSR HOJRE153TR 

YK HELLEriRun" 
659 GET AS: IF AS- " "THEN 102 
630 GOTO 626 
2000 AP-B:P0KE S-11,16 

:POKE K+PO-10,2B:POKE T+PO-40,5 
2002 FOR A-HA TO KO'ltPOKE K*PO?:CAi, 

32 i FOR B-l TO 40 : NEXT i CO-CO* 1 
2004 IF INTCC0/14)*14-C0 THEN POKE S 

+4, 12B:P0KE S+4, 129 
2006 NEXT: FOR A-l TO 500: NEXT 
2008 L-L+1:P0KE S+l 1 , 17 : POKE S-4,128 

:FOR A-0 TO 10: FOR 8-0 TO 30 STEP 
2 

2010 POKE 5-9 , 9 : NEXT : POKE 646, 

RNDC05-4-1 
2012 5C-SC*5:PRINT"CH0ME,CRSR NED23, 

CRSR H0JRE15)SCORE"SC 
2014 NEXT: AP-9: POKE 3*11,16 

:FOR A-l TO 2000 i NEXT 

:IF LE-24 THEN LE-3:HP-HP+5 
2016 GOTO 102 

3000 PR I NT V CLR , CRSR NED15, 

CRSR H0JRE1! .GULjUENT CA.10 SEK . " 
3002 POKE 52,18: POKE 56,48 

:POKE 5E334,PEEK(5E3343AND 554 

:POKE 1,PEEKC1>AN0 251 
3004 FOR 1-0 TO 511: POKE 1-12289, 

PEEKCI-532483:NEXT:P0KE I, 

PEEKC 1 >0R 4 
3006 POKE 56334 , PEEK C 56334 ) OR 1 

: POKE 53272, C PEEKC 532723 AND 240)+ 

15 

3008 FOR A-15504 TO 15543: READ DA 

:POKE A, DA: NEXT 
3010 FOR A-0 TO 53: READ BDC A) : NEXT 
3012 DATA 195.195,36,126,519,255,195, 

126,0, 124, 198, 190, 190, 180, 554, 154 
3014 DATA 251,251,251,0,223.223,223. 

0,60, 126, 243,251,255,255, 126,60 
3316 DATA 24,24,255,24,24,24,24.24 
3018 DATA 0,0,1,0,0.1,448,468.1,448, 

458, 1 ,449.467, 1 , 21 B, 740, 40 
3020 DATA 481.496,1,459,477,1 
3022 GOTO 616 



Kan du lave 
shorties? 



Indimellem mangier vi sma korte rutiner 
til markedets mest populcere microer. 
Send dine 20, 30 eller 40 iinier til ' TAST! ' ' 
- det gi'r gode kroner skattefrit! 
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CHflLLENGEi 



Commodore 64 




Erdu tnet af at svemme ajndt i dlt 
vserelse p.g,a. alle dine disketter 
osv. Hvad med at f3 bragt lidt or- 
den i rodet med dette smarte pro- 
gram??? 

Programmet seetter dine disket- 
ter i alfabetisk rakkefcige. Det er 
selvforWarende. (Men det er 
sandtl). praktisk og kan blive 
uundva?rligt 

Deviee-nummeret er i variablen 
*DN\ der kan amdres efter prin- 
tertype. VanaDIen stir I linje 80 

<4>. 

Christian Banzhaf 




mm 

DISKETTE INDH0LB3F0RTEGNE 



0 GOTO 50: 

LSS" 
SO i 

53 REM TRVKKERKODE 
60 ■ 



REM BRED 8KRIFT 
REM NORMAL SKRIFT 
REM VOGNRETUR 
REM DEVICENUMMER 



REM MAX I MALT 350 



65 BR- 14 
70 NH=>15 
75 RE- 13 
80 DN-4 
90 ! 

100 DIM PN*<350>: 

PROGRAMMER 
110 PRINT CHRt(142):REM STORE BOOSTA 
VER 

120 PRINT CHR*<85- REM SKIFTEMflGLE 

IKKE I BRUG 
130 POKE 53290,0: 
140 POKE 53281,0^ 

VE 

150 POKE 646,14: 
160 A=l 
170 i 

180 REM OPBYGNING RF BILLEBSK 

rtRM ****** 
185 ! 

190 Z=0:S=G:T*="<CLR> , 



£:£$i::S:::#::&::^ 



206 DOSUB ''000 

210 T$-"l" 

220 FOR B-l TO 21 

230 Z»B:S-0:OOSUB 4000 

248 S=39:G0SHB 40B8 

250 NEXT 

260 2=22 1 S=0 : T*= " ' 



REM KflllTFARVE 
REM EAGGRUNDSFAR 

REM SKRIFTFARVE 



270 GOSUB 4008 

280 2*2 : S*5 : T*» " D I SKETTE I NDHOLDSFORT 

EGNELSE" 
290 GOSUB 40G0 

300 2-4:S»2:T*=>" LAVET CO 1906 AF CH 

R I ST I AN BAN7H AF < L . BLAA > " 
310 GOSUB 4080 

320 Z=18 : S»0 ; T*=" I 



4* 



330 GOSUB 4000 
348 2=6 : GOSUB 4888 
358 : 

355 REM OPLVSNINGER OM UDGIVER****** 
*** 

360 : 

370 Z»8:S=5:T«="NAVN: " : GOSUB 4800 
388 E*« " T " '• 1 0 ; L=29 ; GOSUB 5O80 
390 N*=AU* 

4O0 2-10:S"5:T$«"BOPrtL:":GOSUB 4000 
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CHALLENGE 



418 S-13:G0SUB 5880 
420 U*-flU* 

436 Z=12:S-5:T$-*'RDRESSE:":G0SUE 4008 
448 S- 13: GOSUB 3888 
450 S*=flU* 

468 Z=14:S=5:T*-"I"flT0: M :GOSUB 4898 

478 S«ll: GOSUB 5888 
480 D*=RU* 

482 REM DISKOPTRGELSE *************** 

483 : 

490 E»» ,, Z":Z=l6:S=5:Tt="DISK HUMMER : " 

508 GOSUB 4880 

518 S«i7:La2* GOSUB 5808 

528 IF LEN(RU*>*1 THEN flU*»»8 ,, *fllJt 

538 NR*«AU* 

548 Z-20:S-1 :T*«="<HVID,SPACE2>INDS 

ffT DISK OG TRVK PA KL.BLflR)" 
550 GOSUB 40O8 

568 GET ft*: IF ft* OCHR* < 1 33 > THEN 560 
578 T«"" 

580 GOSLm 4880 

598 GOSUB 1088 

600 IF W=l THEN €85 

618 S-6:T*-"CHVID,SPftCE3)EN BISK MER 

E CJ/H)?a.BLRft>"' 
628 GOSUB 4808 

630 GET Zt^IF Z*«"N"THEN 708 
640 IF Z*0 M J"THEN 638 
658 Z=16&~1?-1*»" " : GOSUB 4880 
668 Z*20=S=1 :T*»" 

it 

670 GOSUB 4008 
680 Z=16G0T0 498 

685 Z»20;S-8:T*-"<GUL>PROGRflMLISTE F 

ULD !!" 
698 GOSUB 4008 
695 FOR B-i TO 5000: NEXT 

708 : 

710 REM SORTER I NG OG UDSKRIVNING *** 

**** 

728 = 

730 Z«20:S=6:T*=-CHVIB>T 

rtND FOR PRINTER 
740 GOSUB 400O 
758 FOR B=l TO fl-l 
768 FOR C*B+1 TO fl 

778 IF LEFT*<PN*<B5,16»LEFT*<PN*<C>. 

16HHEN Q*=PN*<C>:PN*<C>-PN*<B) 

:PN*<B)-Q* 
730 NEXT CB 
798 OPEN DN,4:CMB DM 
795 PRINT*DN.CHR*<BR>;TRB<6>; 

■ D I SKETTE I NDHOLBSFORTEGNELSE " 
685 PRINT#DH 

810 PRINTttBN-TRB<6);"FRft: ,, ;N* 
815 PR I NT#BN, TRB< 1 9> J U* 
820 PRINT#DN,TRBfl8);S* 
825 PPINT*BN.TAB<6>;"UDFffRDlGET DEN 

:";D* 

838 PRINT#BN,CHR*<:NM>;CHR*<RE>; 

CHR*<RE> 
835 PRINT#DN.TRBC28); " TITEL 
PA DISK" 

849 PRINT#DN*TRBC20>;" 



<L. BLRRV 



845 V*="" 

850 FOR TO fl 

S55 IF LEFT*CPN*<B>,1>-V*THEN 870 
860 V*=LEFT*<PN*<B>,1> 
665 PRIHTt*BN,TRB<28>;V*; 



878 PR INTttBN , TAB <! 23 > ; PN*< B> : NEXT 
885 CLOSE DN : PRINT" <CLR> " : END 
999 GOTO 999 

1088 REM DIRECTORY INDLrtSES 
I01O ! 

1020 OPEN 1,8,0, "*8" 
1038 GET#l,ft*,B* 
1048 GETttl,fl*,B* 
1850 GET*t,R*.B* 
1060 C»0:F*-" - 

107O GET#1,B*:IF STOO THEN 2800 
1880 IF B*OCHR*<34>THEN 1878 
109O GET#1,B*:(F B*<"»CHR*C34>THFN F* 
=F**B*:GOTO J 890 

1108 

1118 F*=F*+C*:GET#1,C* 
= IF C*0""THEN 1110 
1128 IF RIGHT*<F*,2) = "2i=l"THEN 1998 

1138 F*=LEFT*<F$.20) 
1148 GOSUB 3808 

1150 IF R»349 THEN U»l :CL0SE#1 : RETURN 
1160 W=8 
1668 = 

1998 IF ST=G THEN 1040 
2800 CLOSE i 
2010 RETURN 

3088 REM PROGRAM DOPPELT ? ********* 

*#** 
3818 : 
3020 CM 

303O IF LEFT*<PN*<C>,20>=F*THEN 3838 
3040 C-C+l 

3850 IF COR THEN 3638 
3060 R=fl+1 

3070 PN*<fl>=F*+CHR*<32>+NR* I RETURN 
3880 PN*<C)-PN*<C)+CHR*<47)+NR* 
: RETURN 

4800 REM POSITION IERTES 'PRINT' **#* 
**** 

4010 POKE 214, Z :REN CURSORLINIE 
4820 POKE 211/8 : REM CURSORSPRLTE 
4830 SVS 58640 : REM CURSOR SrtTTES 
4840 PRINT T* J REM TEKST UDGIVE 



4850 RETURN 

5008 REM MflSKE ********************* 

**«* 
5018 : 

5820 flUJ="":L8=l 

5838 T*=CHR* < 1 85 > : GOSUB 4680 

5840 GET A*: IF L8=L+1 AND ft*OCHR*<l 

3)fiND fl*OCHR*C20)THEN 5848 
5850 IF fl*OCHR*U3>THEN 5880 
5860 IF RU*=""THEH 5048 
5070 T*»" "= GOSUB 4800: RETURN 
5880 IF R*OCHR*<20)THEN 5150 
5098 IF L0«1 THEN 5048 
5100 S=»S-1 :T*«CHR*<185)+CHR*<32> 
5118 GOSUB 4088 
5128 fiU*=LEFT*<RU*,LEN<flU*>-l> 
5130 L0-L0-1 
5140 GOTO 5840 
5158 IF E*»"Z"THEN 5200 
5168 IF<A*< w . ,l OR ft*> u Z")RND fl*OCHR* 

C 32 > THEN 5848 
53 70 flUt=RUJ-+RJ :TJ=Rt 
5188 GOSUB 4800 
5198 S-S+l 1L0-L0+1 -'GOTO 503O 
5288 IF A*>»"0"AHD R*<-"9"0R fl*="'"T 

HEN 5170 
5218 GOTO 5048 
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GAMES 



Ork 



Kalaha 



Kan du (KKe lide at tabe, bor du Bt- 
ke indtaste dette strategi- spIL 
Det vil nemlig banke dig bSde gul 
og gnsn p5 ganske f3 min utter Ka- 
laha-programmet kan spille mod 
sig selv, det kan spille mod dig og 
det kan bruges som "high-tech* 
spilleplade for to personer. 

Enk Christensen 




10 

30 

35 

30 
40 
50 
€0 
TO 
• 0 

to 

100 

no 

130 
130 
HO 
110 
100 
170 
tlO 

190 

ioo 
310 
330 

jio 

340 
3*0 
2*0 
3 TO 
JIO 

100 

100 
110 
130 
130 
340 

350 
300 
170 

310 

300 

too 

410 
430 

430 
440 
450 
440 
470 
410 

490 
»00 

510 

530 



trio*) t "ttflm 

|STK»(X*1),2J|SUI-1 

in-** - 0 bogitavcrJ 



'iiow i iiiWuwwtfaw 



CLS:P*lHT*PfilMT- " jCHB|(4 j jCHJt|( 37 ) ;CHBf 1741 jSPC( 1 3) | "KALAJIA" I CKRS t 4 1 

POtMlO, IQtPftlWtiFfllwTiPtUirrsPClJ J j*Bri* Cnrli tertian 

PlllMTiPBIKTflPC(*JrFor OBlC-1 og OBIC ATBW 

dim aniKot nKPii,50) f sm«ai$(U<Hm,LKin.i$m.vtiu 

Pl»*C«B»U4#>*CltHf (lJUiP3f-t:Wliaia7).CMA|(2lMCItHll27|*CrtK|(0J 
*3t*Ca*IUOJ*CHRlU4S)*<;itHf ( 1 14 j iPftlMnPBlMT 

W 1-0 TO I 

MINT t*lj*. opilUr lCoapat*r 
IF 0U-"C*T«B K$U)-"OIUC-"-MlD»l 

If BLf- a P*TNBM Of 1**0 * JKFOT'NAVN 
irLEH(XllX)) >0 TffSNlUO 

mUo-c-AHOfliio-p-niiraoo 

FHlMTrMRXT I 

fOfl J-0 TO I <L*IJ)»L£M<HS I JH iMSX? 
L7-L2C0) i IFL7<Ltt 1 1 TBEW L7*LBf 1 1 
COTO330 

phint*qk5kks wrr spil <j> <n> t 

JP flWH* TULA t>*0 

IF iitw'r mtuno 

rr IM-V" THE* PBlBT'QNOBKfl B7B BPJUJSBE 
ir I70**J" TtlftMTO 
If iTtO'K" TIIEN30Q 

C;L*iE-OiMIO|-"tU11|»»*iVtlO|*"ifim-" 
FOB 1*0 TO 13jNU>-)iM*T 
C-0tBU))-0jfl«)-0 

BOMHM 

N»nii)»43iAi-iJi§*4)iii-7ii3-oiGOT039o 

N*4ill*49(Al-3tiS*liIl*0ll3*7>GOTO390 
PL£TLE(91+l5,Al , *F1TTTEb* » If 5C5)*Q THrMC05UB4U 
IF KIW YHlMGO3UM40iFUm.S(S}*31 f Al f *llIjGOtUD550 
JP 1*0 TMiMlO 

IP NOH TttfcMVUl J»* 'tCOTOUO 
»lt« )•*" 

IP BCft>-0 TBH«Oauttil0iFLOTHl0>*l5.Al.*PLrTTlH IG£*- > GO&UB* »G 
IF 5151-1 TH»lFW3TlBlBI*13 ( Al ( -OO"iCO«UM40 
IF IISI-1 TH£JtPLCrrLE(9U30,Al,Ml|tOO5UQ550 
Ttll*** * 

QOHMM 

JP E-0 TKBH430 

JP 0-0 TKBt3IO«LSi370 

oohimm 

PLorJiiSi-SPiturr fowi* 
MU)*MiU 

IP O<0 THEN FLOT3*l*,«((fl| + - VIMLltfl NED " tMlOf ( STB| (-OJ t 3 J 

IP IKO T«ENF(0 ( (i(0J)»0ilHU»llUJ*liOOTO170 

IF 0-0 THl:uFLOT3,li, "UAPGJOItT* i N( 0 ) *H ( 0 1 * 1 iKt 1 i-HU >*1 iOm>) 7li 

PLOT3»U f llf(U4* VIUDSB MEP 45TAI t DJ t 3)* - FW 

PO,N(l 1 I »0 >V| 0 I •«! (0 > 4*1 iGOTOllO 

GETNS : FLOTLEI5 J *33,Al # J PLOT 1 5, 1 5, ■ * 
M*VALlfcJl(IP IK 7 THSHIF H>0 THHM-1 *OOT0530 
PLOriS t l5, -PA0V IGEN'»COTO490 
JP HpI 1 ' H hEh N-K-7 



pdivt* 



530 
540 
550 
540 

570 
500 

500 
000 
010 

iJO 

630 
040 
050 
010 
170 

600 

400 

700 
TlO 
T30 
7)0 
740 
7 SO 
700 

770 
700 
700 
000 
010 
03O 

030 

040 

ISO 

too 

ITO 
ooo 

010 

000 
010 
930 
9 30 

940 
950 
910 

970 

910 

990 

1000 

1010 
1030 

1030 
1040 
10*0 



IF B(Ni-0 THKK51C 
Q01tm550iIlSTUftH 
K-HfGOfUB?90 
E-OtIP B>l THIN K-E-7 

r9-E*l*»H0J-lS(*)*TI|l|.KlDllSTA|(E5) f 3) 

C*C«liIF CUJ Tfltll FiO.MfO) J-PIO.IIlOiMltNiFil.Htn^FtO.MtO)} 
FOII 1*0 TO 5ilF ftfflOO THEVl-« 
MEKT 

POU JI-7 TO 13 ( IF BllltoO AND I>7 TWHt»liII»U 
NEAT:nrnj»*l 

Wi:PCATtP>IlfTtWrriLFE«P(»U)>34 t MPEATiFHIl<7CHIlHnn ■ WTILPMUOlt )«» 
POPI-lTOllrPMirr^KEXT^FOh I - IT03 t PH 1 yTCHU* f U J I I WtXT 
H04-LEPTtlCS,9-UE(OjJiMlt-LErrt(C0,9*UI(in 
F5*40-LEpil3l(0| hFLOTI.0<l*»(0l + BO0*lH0l*L«FTHCt,Itl> 

K5*90*-LCft(XO( 11 1 1 PLOTZ , 3 . HI ( 1 ]*«ll*IHl )*LEFTI(rt,E5> 
PLOT2, 17,-1. »UIori B *Ht(01iPLOrUill t # l 5 4 J 3 1* 

AS-CHftSl 10(**H**PU tPfflirrotflOM) iPOP 1*13 TO 7 STEP -1 rOOSU574Q:NElT 
A»»AI^- ■*P3*:PLOT4rl9»A0lFLOT5*30 l A|iAi-CHIIIU0>*Pli;l-l>:GOSVB760 
A*-A|»* **F3f** **PJtlI-0iGOftUB7B0iAI*Al** **F3| 

PLOTl * 31 1 Aft PLOT 1 * 33>AI iA|-P3f iFOH 1*0 TO 5: CO3UB7A0: NEXT 
A3-AI*- -*Ollt*f37»»aWlUJl*CHJl»CO)**ll*tPLOn,3) f AtlPLOT*.34.A| 

FLOT1K33.*! 3 J 4 5 4 P trhOTi, 36, m 2. apltltn " - w * r l . 

PR INTCHPt ( 4 h FETURH 

At*Af+* " I IP BUXtO TflEV At-Af+* " 
A|»Al«NlDf (5TP|(BriH.3) tPETUFJI 
P-BtnlfB(H)*0 

FOU P*P TO I STEP -1 tPf-H*l t IF M> 1 J THEM M-M-14 

IUHMIHubW 

IP B(H>-1 TIIEiriP HOI TBBtflF N<>13 TlfEUIF B(13-MK>0 THBM30 
BETUBM 

itVMfl t*nu 3-«i*l i»cn)*OiaU3-H)-0iBmjmw 

D— VOtPOH 1*0 TO lljCtll-BdljKBxT 
FOB J-ll TO 3 1 - i s IP ifJf-0 THEN1030 

MtMiOflHITII 

FOB 1-1 J TO l3*5tIP nitl-Q THBN94Q 
J**if J)+IlB*OiB>-0 

IP ll-ft THZH IF L> 1 2 THRU 1»1:M«1 
IP n-IJ then IF L>5 TWI1I B-l>M-l 
IP 1>>IJ T»lEliL-L-l4»OOTO910 

IP BCL1-0 THEN IF Lo* THH IP LOI3 THP 
IP B>Q THEH Q-P 
BUT 

IF H-U THEM 0*BM31-B(«)*0 
IP B*4 THE* 0*Btt I-BM3I-Q 
IF Oil THD*1010 
S*JlIP E>6 TflEH E-K-T 

FOB 1-0 TO B*S)-IiIP Ptl.B{fn*4*lt*IUT(FI 
MOT 

rOB 1-0 70 lJiB(£)-CtUiHEXT 
IF Q>«0 TV EM A«JtO*0 

WDtT J 

BITUBM 



Ml i j-LJ*F*np- j 
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GAMES 



VIC20 



9 # « 



Efterhanden er der lavet en del va- 
rtattoner over det efterhanden sa 
velkendte spit Pacman. Hererend- 
nu een, denne gang kaldet Ghost, 
og det er lavet til den uudvidede 
VIC-20. Grafikken er fin og spiliet 
er godt og gennemfart. 
Styr med tasterne V {punktumj. 
*L*. V (semlkolon) og *P*. Og pas 
nu pa ikke selv at blive spist .. 

Tonny Holgersen 

S 10 GOSUB300G : P0KE36S7!?. 25 PO*£3S869/ 255 
129 P0KES1 , 0 : 29 :POKE55,0 : P0KE56/29 
139 PRIMT'^WWIftliaa ——VIC — GHOSTS " 

tee p^iMT-ww^ifl PflBanmt. •?>r;8is jswiws. tpimt^kwwkwi hit-ahv-^ev 

-TCHBTfiftT" 
! 90 I FPEEK < 1 9? ) -£4THE* 1 1 30 
230 8=3 ' S=0 

2-50 G03UB2000 ' P0KE36373, 15-J»0 

250 W0>=7?2?'!1<1>=72»30 NC2>*?93S -P»806S.fM 

2G0 FORIw8T02 * V< I ' G< I>«32 W< I >=0 

270 P0KEM < I ) +30720 , 1 +2 • POKEM ( I 42 ' NEXT = POKEP , 37 

230 PRINT "tfcT&TJ&SW FORD=1TO2800 NEXT : r^INT' , rKWS!SKW 

300 F=PEEK<P> 

310 IF<F:4I>TMEM800 

320 K=PEEK<197> IFK=64THENL=0 ■ G0T0490 
330 IFK=13THENL=-22 = 038 ■ 0OTO370 
340 JFK*37THENL«22 : 039 GOTQ370 
250 IFK=22THEML=! -C=40 G0TC370 
360 IFK=21THEHL— 1 -C*41 
370 M«P ■ P^P+L F**PEEK<P> 

330 IF<F>41 >THEHPOKEP-U 32 QOTO800 

390 IFF=35TMENP0KE3S374, 250 3*S+5 : J«J+1 GOTO440 

400 I FF=3«THENF0R I =0 T O2 ; W< T >=30 ■ NEXT : S«S*10: J-J+l P0KE36S74 , 250 GOTO440 
410 IF"F=33THEMP=P-t 
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S0T0449 



420 I FP»7922THENP=7937 
430 IFF^7?38THENP=7923 
440 fFftafiTHENC^S? : fl=l GQTO460 
4 50 R=0 

460 P0KEH/32-P0KEP*C 
490 P0KE36£74,0 
500 FORI=0TO2 

510 N*N< I > V=V< ! : L'=U< 1 3 : G=G< I 
320 IFRHB< 1 X . ITHEN580 
530 R«INT<RM»<i>«4> 
540 IFR»0TKENV- 22-G0T0520 
550 IFR»*THD-V-22 C0T0588 
5G© I r R-"2THEHV»l : 00 T 0586 



625 
636 




635 

660 

670 



GQT0686 



570 IFR«3THENV=-1 
500 ROKEM.G FOKEM- 1 30729,. 
533 IFM=7330THENM=7S86 G0T0666 I 
590 IFM=7922T! CMM-7937 * G0T0669 
595 TFM=7933T»4a^=7923 GOTO660 
600 M=W+V F*PEEK<H> 

610 SFCF O 33 > RHI' < F C42 > THENG=F : GOTO6G0 
620 N-M 9 a IFKBS<V3«22THEKT-»2 00T0620 
T^22 

IFTCSKCH-T) D33THEMV* 1 -t • GQ T 0660 
I FPEEK CK+T> 033T' *ENV*T ' C0T0660 
V=-V 

I FM>OTf IE* mOKEf"! +30720 , 0 ' POKEM.. 43 ■ M«M- ! 

poirr-it 3072C*, 1*2 - pokem, 42 

680 Na>«tt±VH>.*V Ha>«M<G<Z>«iG 

690 HEX? IF^'Ci46THEN300 

700 FORD -I TO* '300 ' NEXT - G0T0240 

300 iff^tioipokep, 42 ■ 00T0370 

310 P0KCP4 30720. 2 - POKEP; 37 
820 FOR I ^0 T 02 ! JFM< 13 ATHENS* I 
230 NEHT 

3-10 ir<G-'B>-35>0R<:G<5>=36>T'-!EHJ^;-*i 
850 Gtt>»32 'M<B>**7329 y(t>=0:SO50 

360 ^0^*254^0?. 2CSTEP 1 PO! \E 36374 , E I fEXTE ' C0SLT360 ' GOT0490 

370 r ORE- I23T025*1 P0KE3*SS74, E ' MEXTC 

890 POKEP-" 30720. 2 : POKER, 34 : P0KE36874 0 

595 FORD- ? T0500 ' NEXT 

910 FOR I -0T02 PCKEM < X -M 30720 , 2 

920 IFOCI>>36THENPOKEHU>^^:GOTO940 

33ft POKEMCI) >$<I) 

940 ICr: 0=0-1 SQSUB960' IFO=0THEN!?8Q 
956 G0T0250 

960 PRIN T "#J!iUs?jr^ :S 

970 PR I NT " %&%!(^^ ; Q - RETURN 

930 !FS>HTHENH«S 

990 PRINT ,, aKWI«Ra?s'!aB fl H E 0 V E R" 

i ooo pr i nt " imsmmmtxMsww rgr i n° < v/n > - 

1010 K«PEEK<i97) " IFK*>64THEN 1 0 10 
1020 IFK=11THEN£30 
1 030 PR INT " T ' P0KE36S69 , 249 : END 
2000 PRINT "3" 

2010 PRINT'S! MM!!!!!!!!!!!!" 
2020 PRINT" !!Wftttitttt#Sf jjKtttttfttttflS 1 " 
2030 PRINT" !38K3!8»3! ! !B*5!3»3! ! 
2040 PRINT"3!S4f3!?S»3! ! ' mz* WZ' 



i3»3!?JH3!i25GC0RE" 

\mz\mz 1 .' 1 



ii ■ 



2050 PRINT" ?MHHHtftftll#*1>1l4!##ft5! 49 0" 

2060 ppvn'wmzrM&imsi 1 < \ \&m\mmiiHm\* 

2970 PRINT 1 * i^#*8!m##S!M*#S!^tl^S! " 

2680 PRIMT " ! ! !3#3! ! !':i»3!'**3: » ''<i#3 ! ! ! " 

20?0 PRINT" !B»X!tt S!3W5!W3 HI-" 

2100 PRI"T"3! ! !MHS!V 3! 1 ! ! !'2 3! 38*3! ! 

211'? PRINT"*! #3! !i3 tt 

2120 PRINT'S! ! !S*B!^ 3! ! ! ! !S Sf'UttS! ! !" 

2130 PRINT" 1 SSfS! H 3' VMS! " 

2140 PRINT" ' ! !WSfSi»3' ! 1 ! !3&3!«tt3! ! !" 

2150 PRINT" ! W######S!S!WIMMMr#IMS! " 

2150 PRINT"! 33*3! SMS! ! !«#3'13»f3' ! !W3! :*S3' " 

2*70 PRINT" 2 JWNHMMMHI ft####»ftS! " 

2120 PRIST"! ' !3ffl5!fflrS! ! ! ! !fc*»**3! ! !SI 3" 

2196 PRINT'S! «3! 3i» INKS! W! US! *8fttt#S1 " 



:00 PRIt'T" !rW3! ! ! ! !SS3!T3»3! ! ! ! !JB| 



2210 r RINT" !';3ttt»S!!i»ft#tf*1fitt#lftiI3! " 
2220 PRINT" ' ! 1 ! ! 1 ! ! ! ! ! ! ! ! ! 1 
2233 PRIN^'Sfc^ 

2000 TOP I ' I T056 - REAM PGKE7423+ I , tT NEXT RETURN 

30 1 0 SfiTRO • 0 , 0 , e ,0,0,0 , 0 , 255 * 255 , 255 , 255 , 255 , 255 , 255 , 255 

3020 SATO66 • 36 , 1 29 , 66 - 56 , 1 29 , 36 , 66 , 0 , 0 , 0 , 8 , 8 , 0 , 0 . 9 

3020 DRTflQ * 24 ,36,36,36,36.24,0.24, 50 , 1 26 , 1 26 , 1 26 ,126, 60 , 24 

30-J0 SWftO, 36, 102, 102, 102, 126,60,24,24/60, 126, 102. 102, 102,36,0 

3050 BflTfl24 , 60 , 1 20 > 96 . 56 , 1 20 , CO , 24 , 24 , 50 , 38 ,6,5, 20 , 60 , 24 

3060 npT056, 124, 214, 254, 254, 254. 254. 170,56, 124,214,254/214, 170,254,170 



Amsirad 

Super 
text 



Programmer hersynerikke af me- 
get Men det gor resultatet. Nar du 
har indtastet en tekst. vit maski- 
nen prlnte den ud pa skaermen. 
forstarret og I flotte farver. Tallet. 
der bestemmer forsterrelsesfak- 
toren. er variablen S I llnie 10. 

Seren Bontrup 




f orstorres" ; a»: CLS: PRINT 



10 S-7.5 

20 BORDER O; INK 0,0: INK 1,15,21: INK 2,21,6: INK 3,6,15 
30 MODE 1: LOCATE 1 , 1 i PEN 1 : INPUT "Intast tekst der skal 

a*: PEN 1 
40 FOR g=0 TO LEN(a*>*16 STEP 1 
50 FOR f=400 TO 384 STEP -1 
60 f ar=l+INT<RND»3> 
70 c=TEST(g,f> 
80 IF c THEN 100 

90 PLOT 10*g»S,350-9»<400-f > ,far:PLOT 10+g»S, 350-S» (400— f ) , -far: PLOT lO+g*S+2,350 
-S* (400— f ) , far : PLOT 1 0+g*S+2, 350-S* ( 400~f > , far 
100 NEXT F,G 
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Am s trad 



Maze 




Programme! MAZE GRAZE er en 
lidt specie! udgave af del 
velkendte Pac-Manspil, beregnet 
for AMSTRAD computeren. 
Nar du karer programmet vil der 
blive vtst de nedvendige 
instruktioner. og for at starte 
spillet skal du trykke fire knappen 
i bund. Du skal med 
morskabspinden styre en mand 
rundt pS skasrmen. som forst skal 
spise 4 nag ier I det yderste rum og 
derefter spise negleme i det mld- 
terste rum. Efter dette kan du 
komme ind til skattekisterne. 
hvorefrer du skal bringe dem ned 
til det hoved der kommer frem pa 
skeermen, NSr begge skattekister- 
ne er bragt frem. vil der komme en 
bil frem som du skal flygte i. Nu vil 
spillet s5 starte forfra igen. blot 
q&t det noger hurtigere. 

Henrik Ronnest 



10 
20 
30 
40 
SO 
60 
70 
SO 
30 
100 




MftZE - CRAZE 
HENRI K RONNEST 



sv=0 i X=33 i INK 0,0:BORDER 0 : INK l.OUNK 2,Q:INK 3.0: MODE HY-200 
FOR G-l TO 3:0RIGIN X+l > Y: X=X+20 
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GAMES 



110 DRAW U 
105. It DRAW 
120 A 
130 ORIGIN 
160. DRAW 1. 



130: DRAW 15. 1303 DRAW 60. 70: DRAW 105. 130IDRAW 120. 130>DRAW 120. 1 1 DRAW 
105. 105: DRAW 60, 45: DRAW 15.105IDRAW 15. 1 i DRAW 1.1 

135+X. y 

115IDRAW 15. 130IDRAW 30. 1301DRAW 105. LIS I DRAW 105. 1 1 DRAW 90. 1 I DRAW 90 



.SOiDRAW 15.50IDRAW IS. HDRAW 1.1 
150 ORIGIN 148+X, Y+651 X»X+20 i DRAW 
l:ORAW 1.1 
160 **** Z 
170 ORIGIN 
130 : DRAW 1. 



1.45 i DRAW 15.55IDRAW 65.55IDRAW 75.461DRAW 75. 



120. 1 > DRAW 120, 15: DRAW 15. 
95. 115:DRAW Li 151 DRAW 1. 1 



15: DRAW 25. 20 i DRAW 120. 



*** 

250+X, Y:X-X+20iDRAW 
130IDRAW 1. 1 15: DRAW 
180 E *** 

130 ORIGIN 385+X,Y:DRAW 1.130IDRAW 120.130:DRAW 120. 120JDRAW 10.120IDRAW 10.70:D 
RAW 100.70JDRAW 100.60IDRAW 10.601DRAW 10, 10:DRAW 120.i0iDRAW 120. 1 : DRAW Li 1 
200 X»X-56iY-Y-6iPL0T 1. 1. dNEXT: INK l.ll'-INK 2.25HNK 3.6 

210 LOCATE 12, 16:PEN l:PRINT M C - R - A - 2 - E" (LOCATE 12, 17IPRINT STRING* < 17. 
")!LOCATE 14. 19tPEN 2IPRINT CHR*(164)I" H. R. 1985. " I LOCATE 12. 22:PRINT"Press fir 
e to itart" 
220 FOR G=l TO 40 

230 LOCATE Q. 1 1 PRINT CHR*( 143) I LOCATE 0.24IPRINT CHR*< 143) iNEXT 
240 FOR D-l TO 24 

250 LOCATE 1,G:PRINT CHR* ( 143) i LOCATE 40,GiPRINT CHR$C 143) t NEXT 

260 FDR G*l TO 3S:L0CATE G, 1 1 PRINT CHR* t 143) S i PEN 2 » LOCATE G+l.i:PRINT CHR*C23l) 
:PEN 31 IF J0Y(0)=16 THEN 310 ELSE NEXT 

270 FCT G=2 TO 24 : LOCATE 40. D-l : PRINT CHR* ( 143) i LOCATE 40.GIPEN 2 1 PRINT CHR*(231 
>iPEN 3> IF J0Y(0)=16 THEN 310 ELSE NEXT 

280 FOR 0=39 TO 1 STEP-UPEN 2:L0CATE G.24:PRINT CHR*C231):PEN 3:L0CATE G+1.24:P 
RINT CHR*(143)UF J0Y<0)=16 THEN 310 ELSE NEXT 

290 FOR G-23 TD 1 STEP-1 1 LOCATE 1, G+l I PRTNT CHR* ( 143) t LOCATE l.GlPEN 2:PRINT CHR 
4(231) iPEN 3i IF J0Y<0)»16 THEN 310 ELSE NEXT 
300 GOTO 260 

310 RODE 0:INK 2.0HNK 1.25.24 
320 Y=195:X=45S:PL0T 180.439 
330 FOR D«=l TD 32 

340 PLOT 640-X.3B1-Y, HDRAW 640-X.Y:DRAW X.YiDRAW X.381-Y:DRAW 640-X.381-Y 
330 X=X+2.2iY«Y+l.e 

360 PLOT 640-CX-6),381-(Y-6).2:DRAW 640-CX-6) • CY-6) .'DRAW CX-6) , (Y-6) iDRAW (X-6). 
3Sl-(Y-6) : DRAW 640-(X-6) .3B1-CY-6) 
370 NEXT 

380 SPEED INK 3, 3iFQR sM3 TO 8 STEP -HFOR 9»1 TO 6:INK l.s.giPEN HLOCATE 7.13 
:PRINT"G&t ready'MSOUND 1 . 9*4. 3. a. 5. 1. 3i NEXT 1 NEXT 
390 1 grafik 

400 RESTOREiLIV=3iac«0:CLSiSYnBOL AFTER 65iFQR 9=1 TO 1 2 : READ d 1 , d2, d3, d4. d5, d6. 
d7. dS : SYMBOL *+64, d 1 , d2. d3, d4. d5. d6. d7.d8:NEXT 
410 DATA 60,60,24.126.183,189,36,102 
420 DATA 3.7.60.92.154,60.38,99 
430 DATA 132.224,60.58.89.188,100,198 
DATA 



440 
430 
460 
470 
430 
490 
-■00 
510 
520 
530 
540 
550 
560 
370 
580 
590 
600 
610 
620 
630 
660 
650 
660 
670 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



3,7. 15,31. 63. 127,255,255 
192. 224, 240. 248. 252, 254. 255. 255 
255.255. J27, 63. 31. 15,7.3 
255. 253. 254, 252. 24B. 240, 224. 132 
255. 255. 255. 255. 253, 255. 255, 255 
60. 66. 123. 255. 153. 165, 153. 255 



60. 126.219.255.255.255.255, 170 
3, 5. 7. 38. 124. 248, 112. 32 
iev=l:DATA 31,49,31.235. 123. 129,255, 
HODE OUNK 1. 0: PEN 1 
PR I NT • DHKHHHHHHHHHHHHKHHHE " 



66 



PR I NT "K 
PR I NT "H 
PR I NT "H 
PR I NT "H 
PR I NT "H 
PR I NT "H 
PRINT "H 
PRINT"H 
PRINT"H 
PRINT "H 
PRINT"H 
PRINT "H 
PRINT "H 



DE 

FQ 



DE 
FG 



DHHE 
FHHD 



DE 
FG 



DE 
FG 



DHHHHHHHHHHHHHHE 



H 
H 
H 
H 
H 
H 
H 
H 



DHHHH HHHHE 
FHHHHHHHHHHG 

DHHHHHHHHHHE 
H H 
FHHHHHHHHHHG 



H 

H 
H 
H 
H 

H 
H 
H 



H" 
H" 
H" 
H" 
H" 
H" 
H" 
H" 
H" 
H" 
H" 
K" 
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630 PR I NT "K H DHHHHHHHHHHE H H" 
690 PRINT"H H FHHHH HHHHG M H" 
700 PRINT"H H H H" 

710 PR I NT " H FHHHHHMHHHHHHHHG H" 
720 PR I NT "H H" 
730 PRINT-H DE DE DMHE DE DE H" 
740 PR I NT "H FG FG FHHG FG FG H" 
730 PR I NT "H H" 
760 PR I NT " FHHHHHHHHHHHHHHHHHHG " 
770 INK 1. 10 

7BO INK 2.3.23:SPEED INK 10.10 

790 PEN 2* LOCATE 6, 12* PRINT" I " (LOCATE 15. I2i PRINT" I " : INK 3.23.221PEN 3:LDCATE 2. 
2:PRINT'K":L0CATE 19, 2: PRINT"K" (LOCATE 2. 22:PRINT"K" JLOCATE 19, 22i PRINT"K" : INK 6 
.17. 151 PEN 4 : LOCATE H, 7 : PR! NT"K' : LOCATE 17. 7 i PR INT "K" i LOCATE 4i 17 i PRINT"K" '• LQCAT 
E 17. 17:PRINT"K 

300 qQ=0:ii»n=0: yy=0:pp=0: i i«»0:ON»0: KK»0: INK 3.24.25:PEN 5: LOCATE 1.241PRINT "scor 
©" i LOCATE l.25(PRINT"hi9h " ; HI : LOCATE 16. 24:PRINT" I i v*" iLOCATE 17.25:PRINT IIVIC 
=36774:X=10(Y=19:INK 6. 14 1 PEN 6( a«="A" «v=sv+0. 5 

310 UK-10iuy=2!uR=35413tINK 9.24. 12(PEN S: LOCATE uk. uy t PRINT" J" : PEN 6 

S20 IF JDY(0)-1 OR J0Yt0)=5 OR J0Y(0)=9 THEN y-y-1 i c-c-80 i a*=" A" ( IF PEEK(c)=192 

OR PEEK(c)=12S THEN c=c+80 ( y=y+l ELSE LOCATE x.y+UPRINT" ■ 

830 IF J0Y(0>»2 OR J0Y<0)=2 OR JQY<0)=6 OR JOYCO)-10 THEN fmy+t ' C"c+BO ( a*="A" : IF 

PEEK(c)-192 OR PEEK(c>-128 THEN c=c-80:y=y-l ELSE LOCATE x.y-1 (PRINT" ■ 
S40 IF J0Y(0>-4 THEN x»x-l : c=c-4: a*="C" : IF PEEK(c)=192 OR PEEKCc)«128 THEN c=c+4 
!x»x+l ELSE LOCATE x+1 . yi PRINT" " 

850 IF J0Y(0)*8 THEN x-x+1 i c»»c+4( a«="B" t IF PEEK(c)=192 OR PEEK(c)=128 THEN c=c-6 
ix«x-l ELSE LOCATE x-l.yiPRINT" " 
860 LOCATE 6, 24: PRINT po 

370 IF mi,i=l AND x-14 AND y=12 THEN 1020 

SSO IF PEEK(c>"68 THEN po=po+10:FDR 9»15 TO 3 STEP -HSOUND 1. 9*20. 9/3. 9iNEXT:ar, 
■UI+IIJF an-4 THEN FOR 9=1 TO 201L0CATE 18,12:PRINT CHR«( 143) I SOUND 1.9*30.1,14! 
LOCATE IB, 12: PRINT" "iSOUND 1. 9*20. 1. 15:NEXT 91po»po+50 

330 IF PEEK<cJ»16 THEN pg=po+20:F0R 9=1 TO 15:S0UND I, 9*100, 1 . 9 t SOUND 1.9*50.2.9 
, 1. 1.3iNEXT:Kk»kK+i:iF Kk=4 THEN FOR 9=1 TO 20:SQUND 1. 9*30. 1, 13: LOCATE U,13:PR 
INT CHR«C 143) (BOUND 1. 9*15, 2. 15:L0CATE 1 1. 13i PRINT" " I NEXT 9(po=po+75 
900 IF RNDClXsv THEN 910 ELSE 930 

910 IF x)ux THEN ux-ux+1 i up=up---4 : IF PEEKCup)-32 OR PEEKCup)-64 DR PEEKCup)=12 OR 
PEEKCUP)*192 THEN ux«ux-l : up*up-4 ELSE LOCATE ux-t . uy : PRINT" " 

920 IF K<ux THEN ux-ux-1 : up-up-4 i IF PEEK(up)=32 OR PEEK(up)=64 OR P£EK(up)=12 OR 
PEEK(UP)«192 THEN ux«ux+l : up=up+4 ELSE LOCATE ux+1. uyi PRINT" " 

930 IF y>uy THEN uy=uy+l ( up=up+80: IF PEEK(up)=32 OR PEEK(up)=64 OR PEEKCup)-12 0 

R PEEK(UP)-192 THEN uy-uy-1 : up=up-SO ELSE LOCATE ux. uy-1 i PRINT" " 

940 IF y<oy THEN uy«uy-l ! up*up-SO: IF PEEK(up)"32 OR PEEKCup)»64 OR PEEK(up)=12 0 
R PEEKCUP)=192 THEN uy=uy+l i up*up+SO ELSE LOCATE ux. uy+1 i PRINT" " 
930 PEN 8 i LOCATE ux. uy i PRINT" J" i PEN 6 

960 IF PEEK(c)=l2 AND ii=0 THEN PEN l:FOR 9=15 TO 3 STEP-O. 3:S0UND 1.9*30.9/3.15 
i LOCATE 11. 13i PRINT" " • LOCATE U. 131 PRINT CHR«( 143) INEXT 91 po=po+200: LOCATE x.yi 
PRINT" "iy-y+2:c=c+160i i i = l :INK 7.8.26:PEN 7 1 LOCATE 10.2HPRINT CHR*<224) : PEN 6: 
pp=1 i po"po*50 

970 IF x=ux AND y*uy THEN II v= I I v-1 :GOTO 1040 

980 IF pp=1 THEN SOUND 1. 200. 1. 10: IF x"10 AND y=21 THEN PEN 1 : LOCATE 10.2HPRINT 

CHR»(143) IFOR 9=3 TO ISiSOUND 1, 9*20. 9/3. 9 : LOCATE 11. 131PRINT CHR»( 143) I LOCATE 
11.13:PRINT" " (NEXT: PEN 6i i t-0( pp=Oi y=y+l : oc+80: po=po*100( aq-pa+1 i IF oa=2 THEN 
1010 

990 LOCATE x, y: PRINT at 
1000 GOTO 820 

1010 po»po+50Q: INK 9.26.0:PEN 9:L0CATE 14. 12: PR INT" L 11 i CHR* (207) : PEN 6i«M"l:FQR « 
=15 TO 8 STEP-l:SOUND 1, 2000. 9/4, *:NEXT 9:G0T0 990 

1020 INK 9.26JPEN 9iB0UND 1 , 9*15. 1. 14: FOR 9 =U TO 1 STEP -1 : LOCATE 9, 12« PRINT"L" 
1CHR*(207)" "ISOUND 1. 9*20. 2. 15. 1, 1. JiNEXT 9 1 LOCATE I. 12: PRINT" " : FDR 9-15 TO S 
STEP-l:SOUND 1.2000. 13. 91 NEXT 9 
1030 CLS: iev=l*v*l:«v--v-0.3(PEN 9:PRINT LOWER* ( " LEVEL i " ) i LEV: FDR G=l TO 2 

000 : NEXT QiCLSiGOTD 530 

1040 FOR 9-15 TO 8 STEP -0.5:S0UND 1. 9*10. 9/2. 9. 1. 1. 3 (LOCATE x.yiPRINT a* : LOCATE 
x.yiPRINT" "iNEXT 9 i LOCATE 16.251PRINT liviIF I lv-0 THEN 1050 ELSE l»v=lev-KGO 
TO 1030 

105O MODE KSYMBOL AFTER HINK 1.261PEN 1 : PRINT"SCORE i "POiPRINT:lF PO) HI THEN 
HI-POiPRINT:PRINT M YOU HAVE THE HIOH-SCORE" i PRINT 

1060 P0»0iPRINT u HIGH i "t HI I FOR G=l TO 20<" , 0:NEXT G: PRINT: PRINT : PRINT" PRESS BPAC 
E-BAR" 

1070 IF INKEY(47)<)0 THEN 1070 ELSE 80 
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Commodore 64 




Machine 



Spil poker mod din datamat! Er du 
en enltg pokersplller vil compute- 
ren. efter endt tndtastnlng. vaere 
en vaerdig modstander eller rette- 
re hele fem modstandere. Maski- 
nen spiller nemlig forfem andre. sA 
I (alter seksomknng pokerbordet. 
Alle vidt forskelllge spillere med 
forskellige luner og splllemSder. 
Fra starten spiller alle med og der 
blandes samt gives kort S5 er det 
tid for hver enkelt at melde. Dette 
geres midt pA skeermen. hvor der 
s3 vll blive skrevet en melding. 
Nogle af dlsse er ret originate og 
faktisk overraskende! 
Bortset fra dlsse f3 oplysnlnger vil 



du hele liden automaOsk bllve 
hjulpet Igennem programmet ved 
hjaelp af spargsmai og instruktio- 
ner. Dog skal du lige vide, at man i 
poker spiller med nogle bestemte 
kortkombinationer og disse spiller 
dette spil naturligvis ogsa" eften 
Et par - to ens kort 
to par — to gange to ens kort. 
tre ens — tre ens kort (samme 
vaerdi). 

straight - fem kort I raekkef0!ge. 
f.eks. tO.B.D.KEs. 
flush — fem kort i samme farve. 
hus — to ens og tre ens (som et par 
og tre ens). 

Royal flush - en straight I hjerter. 



0 PRINT"< CLR,CRSR NED23) "TAB< 39 )CHR* 

C 143) 

1 POKE 33280, 13IP0KE 33281,15 

tPRINT"<SORT)"iPOKE 33248+17,144 
3 PRINT"<CLR,CRSR NED25 ) "TABC 39 >CHR* 
C 148) 

10 PRINT"<CLR,S0RT)->CHR*<8>* 

:DIM Dy.( 13,4>,"0« 13>,L« 13>, 

F9< 13) ,S« 10) 
20 OEF FM?V( X3)=INT< < RND< TI >«X3)+1 ) 
30 01 M :FR=4 iFV=3iSX-6iTR«13JBN-6 

i SN" 1 0 i RN=6 ! F0= 1 3 
40 FOR X-l TO GiMW X)- INT< RNDC TI ) »50 

0*700)! NEXT 
30 FOR X=l TO 13: READ L«<X)1NEXT 
60 FOR X=l TO 4 : READ L2«CX)«NEXT 
70 FOR X-l TO 5 : READ L3*(X):NEXT 
80 FOR X-l TO 9: READ N*< X ) ! NEXT 
90 FOR X=l TO BN:READ B*<X)iNEXT 
100 FOR X"l TO SNt READ S*< X > I NEXT 
110 FOR X=l TO RNi READ R«X)iNEXT 
120 FOR X=l TO FDIREAD F«CX)«NEXT 
130 SS* 1 30 i MA»SS I AL" . 22 I FC* 1 . 15 : NG=6 

!40 M1*="MAXIMUM BET IS «1000." 

:M2»="Y0U CAN'T BET WHAT YOU DON' 

T HAVE . " 
150 PRINT-C SORT,CLR,CRSR NED4 ) ■ 

I PR I NT" I IFOR W0=1 TO 38 

I PR I NT"-'; : NEXT: PR INT 
160 FOR UIO-0 TO 13 1 PR INT" I " I NEXT 

170 PR INT" V ! : FOR WO- 1 TO 38 
: PR INT"— " S I NEXTi PR INT 

171 FOR PO-0 TO 13:P0KE 1303+P0*40 ,66 
:NEXT PO 




172 FOR 89=0 TO 13SP0KE 55575+B9«40 ,0 
s NEXT B9 

173 POKE 1263,73iP0KE 36133,0 
t POKE !863,73!P0KE 55533,0 
(PRINT"( SORT) "t 

180 DUN=-99:60SUB 3940 

190 R** "WHAT'S YOUR NAME , PARTNER ?• 

:PA-FNRV<5>IG0SUB 3630 
200 13=541 IGOSUB 3420 
210 L3« SX)-I«:N6*-ISlDWN=-99 

iGOSUB 3940t0WN=0 
220 GOSUB 3530 IGOSUB 3510 

:R»="SIT DOWN, •♦!»♦". "iX=FNRV(5) 

I PA-X IGOSUB 3630 
230 X1=FNRV<3)HF X 1 -X THEN 230 
2AO R*«"GLAO YOU COULD JOIN US." 

:PA=X1 IGOSUB 3630 I WO =2 1 GOSUB 3500 

IGOSUB 3870:W0«1 
250 GOSUB 3500 
260 GOSUB 3870 IGOSUB 3530 

270 L1-1!R*«"THIS IS THE -CBM- POKER 

TOURNAMENT " t GOSUB 3770 
280 Ll*2iR»--G000 LUCK. "i GOSUB 3770 
290 WO =3 i GOSUB 3500 
300 X-I + 1UF 1-7 THEN I -1 
310 IF FZ<I)-2 ORCFWD-1 A NO MX.< I X 

50) THEN 300 
320 GOSUB 430 
330 GOSUB 840 
340 1 1-1 IM-1 IGOSUB 930 
350 IF E0G«1 THEN 420 
360 GOSUB 1570 

370 IF FS«SX>-0 THEN GOSUB 920 
380 I 1 ■ 1 1 M=2 : GOSUB 930 
390 IF E0G=1 THEN 420 
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400 GOSUB 3 ISO 


810 R*= "THE C B M - POKER TOURNAMENT 


410 GOSUB 3870 


IS OVER. " :L I = 1 :GOSUB 3770 


420 GOTO 300 


820 R*-L3«CX>+" IS THE CHAMPION. CON 


430 FOR X=l TO TR I FOR Xl-1 TO FR 


GRATULATIONS ■ ":L1=2! GOSUB 3770 


440 OYX X,X1 J=OiNEXT XI, X 


830 W0 = 10: GOSUB 3500: PR INT"( HOME ) * ; 


450 MXC 0)-OIEOG=0:NH*0:RS-0 


:GOTO 10000 


460 FOR X=SX TO 1 STEP-1 


840 FOR Xl = l TO FViFOR X2»I TO 1+5 


470 BX<X)»O«BLX(X)=0 


850 X=XS ! IF X>6 THEN X*X-G 


480 IF FX<X)<>2 THEN F'A< X > -0 I NH"NH + 1 


860 IF FXCX)«2 THEN 910 


490 IF MM XX 30 AND FWX)OE THEN GO 


870 C-FNRVC TR) :C1 =FNRV( 4 ) 


SUB 640 


• tp nvv C r J )»1 THEN 870 


500 NEXT: IF NG=1 THEN 770 


880 D5« C/Cl )■! tftXC X,Xl r 0>=C 


510 GOSUB 3510IG0SUB 3530 


<ft>!( X^XI * 1 )=C1 

^ r ■ * % 9 f r f m J mw ^ %mm m 


I IF F!«8X>-S THEN 550 


890 0UN= 1 :PA"XiC-Xl : IF PA=SX THEN OU 


520 R*="OEAL 'EM ?" iPRINT"< HOME , 


N=0 


CRSR NED 13 ) " J TAB< 18 ) t "C Y/N> - I L 1 - 1 


900 GOSUB 1880 

— ■ ■ 


i GOSUB 3770 


910 NEXT X2,Xl:G0SUB 3530:RETURN 


330 13*341 SGOSUB 34201 IF I*="N"THEN 


920 Pft»SX:DWN=Ot GOSUB IB70 : RETURN 


4170 


930 B9=0 = GOSUB 35 10 : GOSUB 3530 


540 GOSUB 3510 


840 IF F'/.< I 1 >< >0 THEN 1070 


330 GOSUB 3940: GOSUB 3330 


950 GOSUB 1950 

— — — — — — — — — — — ■ 


!R*""I*LL DEAL EVERYBODY ANTE 42 


9G0 C8=0i IF D0>0 THEN C8=C8+1 


0. " 


970 IF 01>0 THEN C8=C8+1 


5G0 DUN-- 1 IFOR Pft=l TO 6:G0SUB 3870 


980 IF D2>0 THEN C9=C8+1 


: NEXT: DUN=0 : PA = I 


j— ^ ^-j 1 t * r d' t ^ ^_ t W — ( kill ^ ^ T t 1 f — | f — l 

990 vXC I 1 ,0 ) =N9 ! v/( I 1 , 1 > *DO 


370 PA»PA-ltIF PA-0 THEN PA*6 






IVSK 11 * 2 ) =0 I ! V3« I 1 .3) =02 


580 IF FX<PA)=2 THEN 570 


I VX< 11,4) *D3 : VXC 11-5) =N1 


590 GOSUB 3630 


1000 IF VX< 11,5) >TR THEN VX< I 1 , 


GOO A8-201F0R 18=1 TO SX 




610 IF F'/A I8>"0 THEN GOSUB 3900 


5 ) =VV;< I 1 ,5) -TR 
1010 VVft I 1 ,G)*N2»V>X I 1 ,7)*C8 


620 NEXT 18 


1020 IF NH=1 THEN R**L3« I 1 ) ♦ " TAKES 


630 RETURN 


THE POT OF S" +STR«< M>,C 0 ) ) =L 1 « 1 


640 IF X< >SX THEN 700 


i GOSUB 3770 


650 R*=L3*<SX> + " , YOU'RE LOU ON CASH 


1030 IF NH=I THEN E00-H 18=11 


."tLl-HGOSUB 3770 


I A8"ZR-MX< 2R ) ! GOSUB 3800:GOTO 1200 


660 R«» "WOULD YOU LIKE TO CONTINUE? 


1040 IF I1«G THEN GOSUB 1300 


<Y/N>"IL1 »3J GOSUB 3770: GOSUB 3420 


1050 IF I 1^ >6 THEN GOSUB 2740 


I IF I»«"N n THEN 700 


1080 IF E0G=1 THEN 1200 


670 GOSUB 35I0:R**"0.K. UE 1 LL GIVE E 


1070 11=11+1! IF Xl"7 THEN 


VERYONE »1000. " tLl = l : GOSUB 3770 


1090 IF I 1< > I THEN 940 


690 FOR 19=1 TO SX:IF FX<I8X>2 THEN 


1090 11*1 


A9=-I000:F>K I8)=0:G0SUB 3800 


1 100 IF FYA 11) "0 ftM3 B9 )BXC I 1 )THEN 0 


690 NEXT! M<« 0 ) "0 : RETURN 


N I 1 GOSUB 3050,3050,3050,3050, 


700 FY.< X>»2iRD= 1 :NG=NG- 1 : L 1 =2 




710 PA*XiR*«"I OU IT , I'M GOING HOME." 


1110 Il=Il+i:iF 11=7 THEN Il«l 


I GOSUB 3630 


1120 IF I 1<>I THEN 1100 

— m i i i — — x" x — — "w 


720 UO =21 GOSUB 3300 


1130 IF FX<I1>=0 THEN MA =AL *BX< SX ) +< 

■ppn pppi -pppt ^ppr ^ppr w pr v ppf pr ppppi pppt h -ppppt t -r — ppppppp 1 x — - x - "pt pi ^pppppt "w ^aaaar - tt -v -r — — w 


730 IF MX<X>>=0 THEN R*-L3Sf X ) + ■ LEA 


1 -flL ) *MP 

4 • 1 r ~ ' mm V 


VES UITH •■♦STR«<M>«X)>*-. ■ 


1 140 G2 = 0:G3 = 0 


: GOSUB 3770 


1 150 FOR X= 1 TO SX 

m mmmr mmmmmr- mmmw- — — mm — mm mr h h mr mmmmr mmmmmr mm mm 


740 IF MJKKXO THEN R««L3«<X> + " LEAV 


1180 IF FX<X>=0 THEN G2=G2*I:G3=X 


ES AN I.O.U. FOR *- *STR«< 0-MX( X > > 


1 170 NEXT 


+ ■ . " : GOSUB 3770 


I 190 IF G2=l THEN E0G"ltG0SUB 3510 

■ * —mr m f ~tmr ^mr a > ■ ■ -^m ■ x «^ -*mr • «^ tar tar tar a tar 


750 U0-3I GOSUB 3500 : GOSUB 3510 


:R*=L3*< G3) + w TAKES THE POT OF «" 

w P * ^pr ta* tar » ^ ta* tap r P P PP ^ tar W P ■ | ta™ * tar tar P * 


760 RETURN 


♦STR*< fWO)) 


770 GOSUB 3530 1 GOSUB 3510 


1190 IF G2=l THEN L 1 = 1 : GOSUB 3770 


780 FOR X=l TO SX 


: I8-G3:A8=-MX(0>!G0SUB 3800:W0=3 


780 IF FX<X>=0 THEN 810 


: GOSUB 3500 


800 NEXT 


1200 RETURN 
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1210 GOSUB 35I0:RS=0 

1220 RS^-YOU'VE BEEN RAISED TO *"+ST 

R«< B9> +■ - " :L1«1 (GOSUB 3770 
1230 R*="DO YOU SEE OR FOLD ?"IL1=2 

: GOSUB 3770 
1240 I3=5S6:G0SUB 3420: I««LEFT«C I*, 1 ; 

I GOSUB 3510 
1230 IF I»«"C"THEN GOSUB 4480 
1260 IF I*<>"F"ANO I*<>'S"THEN 1210 
1270 IF I$="F"THEN FX( 6)»HBWSK)=0 

INH=NH-1 :PA=SX:GOSUB 3880 
1280 IF I*-"S"THEN 18= 1 1 l A8=B9-BX< II. 

: GOSUB 3800 
1290 RETURN 

1300 GOSUB 35 10 1 IF B9»0 AND I»l THEN 
R*= "THE POT IS *" +STR*< MX< O > ) 

IL1 -11 GOSUB 3770 
1310 IF B9=0 AND I«I THEN R*="LO0KS 

LIKE I TAKE IT. ■ i PA»SX t GOSUB 3630 

I I8=SX 

1320 IF 89=0 AND I"l THEN A8-ZR-MVKZ 
R):G0SUB 3300 : EOG= 1 : GOTO 1560 

1330 IF B9=0 THEN RS=1 

: R»= "WHAT DO YOU BET ?":L1=1 
1G0SUB 3770t 13-54 1 l GOSUB 3540 

1340 IF B9=2R THEN GOSUB 3310 

: GOSUB 4050 1 IF L 1< >9 THEN GOTO 15 
GO 

1350 IF LI -9 THEN L 1 = 1 ! GOSUB 3510 

:B9=ZR:G0T0 1330 
1360 R*=N6*+", THE BET STANDS AT *"+ 

STR*< B9>+" . " :L1=I :GOSUB 3770 
1370 R*="00 YOU SEE, RAISE, 

OR FOLD ? " i L 1 -S i 60SUB 3770 
1380 I3=559!G0SUB 3420 t Z*-LEFT*< I*, 1 3 
1390 G2=ZR:G3=ZR 
1400 FOR X=l TO FV 

1410 IF FXtXJ-ZR THEN G2=G2+l:G3=X 

1420 NEXT 

1430 GOSUB 3510 

1440 IF Z«="C"THEN GOSUB 4480 

1450 IF Z«<>"S"ANO ZS<>"F"ANO Z«<>"R 

•THEN 1360 
1460 IF Z»="F"AND G2=l THEN R«=L3»< G 

3 5 + - TAKES THE POT OF *"+STR«M3« 

ZR> ) :LI-I 

1470 IF Z*="F"ANO G2-I THEN GOSUB 37 

70* I8=G3: A8=ZR-hC« ZR5 : GOSUB 3800 

(U0-2IG0SUB 3500 
1480 IF Z*--F-AND G2=l THEN E0G=1 

i GOTO 1560 
1490 IF Z**"F"THEN FXC SX ) - 1 iKtf SX J=ZR 

INH-NH-1 :PA=SX: GOSUB 3880 

i GOTO 1560 
1500 IF Z»="S"THEN BYA SX>=B9: I8*SX 

IA8»B9»G0SUB 3800: GOTO 1360 
1310 IF Z*-"R-AND B9 > =MXC SX >THEN R*= 

■YOU DON'T HAVE ENOUGH MONEY TO R 
AISE":L1=1 



1520 IF Z*=-R"AND B9 > "MW SX > THEN GOS 
UB 3770:W0=2:G0SUB 3500:GOSUB 3510 

IGOTO 1360 
1530 IF Z*«"R"THEN RS=I 

:R*="WHAT IS THE AMOUNT OF THE RA 

ISE 7-lLI=l *GOSUB 3770 
1540 IF Z*--R"THEN I3=540:G0SUB 3540 

:GOSUB 3510:R1 =VAL< I«3 1G0SUB 4120 
1330 IF Z»""R n THEN IF L 1 "9 THEN GOSU 

B 35I0SG0T0 1530 
1560 RETURN 

1570 II -I* GOSUB 3330IG0SUB 3310 
1580 IF FX<II)=ZR AND I 1 =SX THEN GOS 
UB 1760 

1590 IF FMUWR AND IK >SX THEN GO 

SUB 1630 
1600 Il-M + HIF U»7 THEN 11 = 1 
16 10 IF HOI THEN 1580 
1620 RETURN 
1630 06-0IF0R X= I TO 5 

1640 IF AXC I 1 >«VSff I 1 ,4)0R AX< I 1 , 

X,0> *\tV.< I 1 , OTHEN GOSUB 1710 

1642 IF A^< I I ,X,0)=VX< I 1 ,2)0R AW I 1 , 
X,0)=VW I1,3)THEN GOSUB 1710 

1650 NEXT 

1660 IF D6=l THEN R*» " CARD . ■ 
1670 IF D6<>I THEN R*« ■ CARDS." 
1680 PA=Ii:R»="I TAKE ■ *STR«< D6 ) +R» 

: GOSUB 3630 
1690 IF D6»l AND RNO<TlX.3 THEN BLM 

< I 1 >=3 
1700 RETURN 

1710 C-FNRVC TR> IC1"FNRVC FR) 

I IF DX<C,Ci)"l THEN 1710 
1720 IF 0>«C,Cl)-0 THEN D3«C,C1>-1 
1730 AX< I 1 ,X,0>-CiA3tt I1,X,1>»C1 

:D6*06*1 
1740 IF D6»VX( I 1 ,7)THEN X*FV 
1750 RETURN 

1760 GOSUB 3510IR*-" PLEASE ENTER CA 

RD NUMBERS ■ I L 1 ■ 1 1 GOSUB 3770 
1770 R«=" TO DISCARD . "IL1-2 

: GOSUB 3770 
1780 I3=358iG0SUB 3540iG**I» 

: GOSUB 3510 
1790 FOR X=l TO LENC G«) 
1800 L=VAL< MI0« G*,X, 1 J ) 
1810 IF L>FV OR L<ZR THEN 1760 
1820 C-FNRV< TR ) t C 1 =FNRV< FR > 

i IF DX<C,C1> = 1 THEN 1820 
1830 IF 0X<C,C1>-ZR THEN DX<C,CI>*1 
1840 A>K SX,L,ZR>*C:A>K SX,L, I >=C1 
1850 NEXT 
I860 RETURN 

1870 FOR C=l TO 3*G0SUB 18B0:NEXT 
i RETURN 

1880 GOSUB 3700iCl=4JPRINT"<CRSR NEO 
4)";: IF PA>3 THEN CI =-3 
:PRINT"(CRSR 0P4)"/ 
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1890 FOR XY=CI TO- 1 iPRINT"< CRSR 0P>"; 


2300 FOR J6=<J3-!>T0 1 STEP-1 


I NEXT XYi ON DUN GOTO 1920 


2310 IF TXCJ6>-2 THEN P2=J6:G0T0 2330 


1900 C«< 1 >-"< SORT) "+LEFT« L*< AXC PA,C, 


2320 NEXT 


ZR)>+' ",3J(C*C2>-" " +L2S< AX< PA , 


2330 IF T3>0 AND P 1 >0 THEN N9*3 


r + ~ w ^ 


:81=.45:B2=.75:N1=J4:N2=J5 


1910 C*C 3 > = "C S0RT> "+RIGHT*< " "+LSCA 


I GOTO 2730 


WPfl,C,ZR)),3)'PRINT"i (GOTO 1930 


2340 IF V-FR THEN N9-5 t Nl «X 1 +FR I N2 -X 1 


1920 C«< 1) = "<RVS 0N,R00>*»A" 


:B1=.23:B2-.3:G0T0 2730 


!C*< 2> = "< RVS 0N,R00>ftttA" 


2350 FOR Hl»l TO TR 


I CSC 3 ) - CI' 1 > 


2360 IF TX<H1>-1 THEN 2380 


1930 FOR Wl-I TO 3SG0SUB 3730 


2370 NEXT 


IPR1NT SPCC 2»C-1 )CK Ml > "NEXT 


2380 IF H1>=TR THEN 2460 


:PRINT"< SORT) "J 


2390 FOR H2-H1+1 TO TR 


1940 RETURN 


2400 IF TOHB>»J THEN 2420 


1930 FOR K" 1 TO TR: TYjC X ) =ZR!NEXT 


24 10 NEXT 


I960 FOR X- 1 TO FR : T2X< X) «ZR:^XT 


2420 IF H2>-TR THEN 2460 


1970 N9=2R :R*ZR : B 1 =ZR : B2=2R : P 1 ~Z R 


2430 FOR H3=H2*I TO TR 


:pa=ZR:N=ZRiNl"ZRiN2"ZR:N3=ZR 


2440 IF TX<H3>"1 THEN 2460 


iOO-ZR:D 1 =ZR:D2=ZR 


2430 NEXT 


1980 03«ZR:T3=ZR 


2460 IF T3>0 THEN N9=6: B 1 = . 23 sB2= . 23 


1990 FOR X s 1 TO FV 


:N1=J4:D1=H1 :02*H2:G0T0 2730 


2000 T/.< A*« I 1 ,X,ZR> >=TX< A'/A I 1 ,X, 


2470 IF P1>ZR AND P2>ZR THEN N9-7 


2R ) > + 1 1 T2XC f\'/X 1 1 ,X , 1 > > "TS%< ftX< I 1 , 


:NI-P1 : N2 =P2 i 02 =H1 * 8 1 » . 13 : B2= . 13 


X , 1 ) ) + 1 


t GOTO 2730 


20 10 NEXT 

— 1 W T "W 


2480 IF R<4 THEN 2530 


2020 FOR X*I TO FR 


2490 FOR H4-1 TO FR 


2030 IF T2WX))R THEN R-T2XC X > : S 1 a X 


2500 IF T2X<H4)"1 THEN 2520 


2040 hCXT 


2510 NEXT 


2050 FOR XI =1 TO TR 


2520 IF R»FR AND M- 1 THEN B1-.1I03-H4 


2060 IF TX<X1)=0 THEN 2120 


:G0T0 2730 


pn7n v»o 


2530 IF V< >3 OR M=2 THEN 2630 

■ ■ — — — — — — — n ■ 


2080 FOR X B 1 TO 4 * X£=X 1 +X 


2540 FOR H9M TO X 1 -2 


: IF X2>TR THEN X2^X2-TR 


2550 IF TXCH9)"1 THEN 2620 


2090 IF TOMBXI THEN X^SINEXT 


2560 NEXT 


s GOTO 2110 


2570 IF Xl>8 THEN 2620 


2 100 1 sNEXT 


2580 FOR H9=X1+FV TO TR 


2110 IF V-3 OR V=4 THEN 2130 


2590 IF TX<H9>"1 THEN 2620 


2120 NEXT 


2600 NEXT 


2130 IF R=FV AND V=FR THEN Bl=-5 


2610 IF H9*I4 THEN H9=P1 


:82*.8iN9"l :N1 =X 1 *FR:N2=S 1 


2620 IF V-3 AND M- 1 AND Xl<9 AND XI 


sGOTO 2730 


>1 THEN B1=.07*D1-H9."G0T0 2730 


2140 FOR J=l TO TR 


2630 IF PI<1 THEN 2650 


2150 IF TX<J>=4 THEN 2170 


2640 N9-8ID0-H1 ID1-H2SD2-H3 


2 1 GO rJEXT I GOTO 22O0 


i B 1 =P 1 1 . 33» . 04253 ! 82 =SQR< P I ) « . 028 


2170 FOR J1«I TO TR 


INI =P1 *G0T0 2730 


2180 IF T99CJ1)*! THEN D2"J1:81 = .5 


2630 IF V»3 AND M» 1 THEN Bl -.03(01 -H9 


iB2".7iNl=J:N9=2!G0T0 2730 


(GOTO 2730 


2190 NEXT 


2660 FOR J3=TR TO 1 STEP- I 


2200 FOR J3"TR TO 1 STEP-1 


2670 IF -H«J3> = 1 THEN 2690 


2210 IF TXCJ3>el THEN 2230 


2680 NEXT 


2220 NEXT 


2690 FOR J4-J3-1 TO 1 STEP- 1 


PP2Q IF R =F V THEN Nl = T3 : N9 = FR :B1 = .3 


2700 IF TSfiC J4>» J THEN 2720 


£ B2= . £ - GOTO 2730 


2710 NEXT 


2240 FOR J4»l TO TR 


2720 B1-ZR(B2=ZRIN9=9IN1-J3:N2=J4 


2250 IF TX<J4>-3 THEN T3-J4IG0T0 2270 


2730 RETURN 


2260 NEXT 


2740 IF FWIIIOZR THEN 3040 


2270 FOR J3 = TR TO 1 STEP - 1 


2750 IF M-l THEN B7-B 1*1000 


2280 IF T5« J5>"2 THEN Pl-JSiGOTO 2300 


2760 IF M-2 THEN B7-B2*1000 


2290 NEXT: IF J5=ZR THEN 2330 


2770 IF M-l AND B7-ZR AND MX< 11) >800 
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AND RNCKTIX.05 THEN GOSUB 1210 
2780 IF BL/«I1>"1 THEN B7«200+FNRV< 1 


Al ^^A A^A 4 A^^k a ™ A^Ai Ak iA^Al A ^^^k A4 & AW^A ^^A 

: GOSUB 3630 I GOSUB 4 160 

■i ^AA AiAA AA ^A A bA^A -^^Al A^A ^^A_ ^^^H ^^^Al A ^^^A A A 

3040 B9=1NTC B9 > : RETURN 


00 > 


3050 R7=B9-B>:< I 1 > : S7=B7X< I 1 >/FV 


2790 IF BL;<CI1>-2 THEN B7=250+FNRV< 1 


^A A^k -^^Afti ^Al A Ai ^A Ai A 

:B8»B7X< I 1 > 


00 > 


^^Ah ■ ■ h h_ h AA^i AAi ^^^h A Ai ^k A A ^A. A 

3080 S3-S7I IF< VX< I 1 ,ZR)< =7 OR VW II, 


2800 IF M-l ftND B7=ZR THEN GOSUB 4160 


FV> >- 10)AND< MA>SS )AND< RS*01 )THEN 


i GOTO 3040 


S3=S7+CMA-SS)tFC 


2810 IF BLX<I1>=3 AND B7-ZR THEN B7- 


^Al ^^k A^^^k. k^A ^A. ^^^^k i^^K ^Ak ^^^k ^^A A ^^k AAb A A ^k A 

3070 IF< B8+S3>=B9)0R( VX< I 1 , 


240+FNRV< 100 - 
2820 IF M=2 AND B7-ZR AND VA< 11, 

7><=2 AND RN0<TI>>.75 THEN B7-360 


ZR )< -SX )0R< M= 1 AND B9<100)THEN PA 
■III R»=S*< FNRV< SN) ) 
3080 1F<B8+S3>-B9)0R< S/Y.< 11, 


2830 S7=B7/FV:B8=ZR!B7X< Il>-B7 


AA A^Ai ■ 4 ■ ■ A^Ab k^^k 4 A ■ k ^ A . ^h. A k A^A ^^^k v ^^^A k k A^A ^k A A^Ak A^AA 

ZRX «SK)0R( M>1 AM) B9<100>THEN GO 


284U FUR X=l TO 1 2 » Ua =HB *KMJ( T I ; ■ NLK I 


CI ID OCQfl' QV/ f • ^ a QQ V f O — f j 

oUo JU * tf .■ 1 1 > — 1> zj • lo - 1 1 


2850 B8-< < B8-S>*S7>*B7 


3090 IF< B3*S3>-B9)0RC VX( I 1 , 


28S0 B8- INT< B8 > 


ZR X =SX >0R< M» 1 RND B9< 100 > THEN fib 


2870 IF B9 = ZR AND MXC I 1 >< *ZR THEN R* 


»R7:G0SUB 3800*GOTO 31 10 


3 "HERE ' S »1 IN C0INS"IPA-I1 
: GOSUB 3630 


-H- ^b. m Hi ^^^h h A^Ai A^A b^^^K K ■ b^AAi b^^h Ah >A Ai Hb^h Aui %A AA 

3100 IF B8+S7<B9 THEN Pfl= I I i R*= 

Am A ^^A ^^^A ^Ai Ah ^^A ^^A ^A ^^A a^^A kk 4 

: GOSUB 3630 : GOSUB 4 160 


bb bbbl bbbA kaA bA ^^Ki bbbbbl ^^A b"^H fl"^^k -h- 4 ■ — v bV^b iAVA^A-b. a bl bbA 

2880 IF B9=ZR AND M^< IIX-ZR THEN MX 


A A a^^A aA Aa^^^A -^^A a'Ai a'^A AA bbbbi aAaaah jb"Ai jb'A b'^Ai b'^^A aVaaaak—B. b^^Al "h. 

3110 UO a S • GOSUB 3500 1 RETURN 


< ZRJ-MXC ZR>*1 <BX< ID-UBflil 


aaA bbl ^^A. ^AA bA bbbbi bAA -AAA -A^A b—A 4 A B—k -AAA b—^H bbb ^Ab 

3120 GOSUB 3b 1 0 : GOSUB 3S30 


I GOTO 3040 


! R*» "O.K. EVERYB00Y, 


2890 IF B9=ZR AND B8 >fOtt IDTHEN B8»M 


THE POT IS « p +STR«< MX< ZR ) > + * . ■ 


5« I 1 > 


:L1 ■ 1 


A k bbbl & ■ bbbbi bbbbbi AAb. Abbl bb ■ B^k. bb^^K a*^h. ^^A Ab bbjAbbl bbbbbi -^bVL 4 A 

2900 IF B9>ZR AND B8-S7>»B9 AND B8 >M 


3 I 30 GOSUB 3770 * R** "LrlT DOUJN YOUR HR 


YX I 1 JTHEN B8=MX< 11) 


r JDS - " :L 1 =2 : GOSUB 3770 


2910 IF B9»ZR THEN R*»B«< FNRV< BN> ) +S 


— b—L bA 4^^b ^^Bi b'Abi bl bbAA AAl Am 4 A. 

3140 FOR X« 1 TO SX 


B^^^^k 1AVA1 ak K b"AA & A A. h bb .bb ^ bbAb bBA AAi 

TR*< B8 ) * Pri - I 1 : GOSUB 3630 


3 150 IF FAk XX )U THEN 3cBO 


2920 IF B9=ZR THEN B9=B8 : 18= I 1 : AS*B8 


3160 N9=VX<X^0> 


bbbb bbb h bbbA bbb h bVA A^A fl"^k k Hi k fl"^A h a. b_ . BflBBi bbb Abb bbb bBA 

: GOSUB 3800 : BYX 11) «B8 ! GOTO 3040 


3170 IF N9=2 OR N9 a SX OR N9 *8 THEN R 


2930 IF 88-S7>«B9 THEN R*»RK FM?V< RN 


S*N*< N9 > + " M *L»< V/X X,FV>> + - 'S" 


>)+STR«< B8)!PA»I 1 : GOSUB 3630 


SG0T0 3230 


2940 IF B8-S7>*B9 THEN B9=B8: 18=11 


■A^A A bA b"A bA i ^Ab l ak AAt b Abi btA —A a .bbbl B^^^A ^bb—l b bWbWbb l BVflVA. Awk A 4 AA A Ax ■jAbbWA b 

3180 IF N9» 1 OR N9=5 THEN R* = N*<N9> + 


ak iB^b ^^b i-h fl"^A ^h. ^bl. l bbbA ^k bAA b"K B*^k b"^H H b bb bVH W 

:A8=Be:G0SU8 3800 : BYX I 1 > *B8 


M " +L*< VA X*3)>+ S H 1GH 


:G0T0 3040 


:G0T0 3230 


2950 IF< VX< I 1 ,ZR)< "7 OR VXC 11, 


3190 IF N9-3 OR N9*7 THEN K* a N*<N3> + 


FV)>«10)ANDCMA>SS)AND<RS-1)THEN S 


■ ■ +L*C V/*< X^5>)+ S OVER ■ +L»< v/X 


7=S7+< MA-SS)tFC 


X,6>>+" # S" 


2960 IFCB8-S7<=B9 AND 8B*S7 >B9 >0R< VX 


b^A B^A BBh. A^k bA B^^Bh. bbbi ^bbi AAi AAk k bA bVAbS. AA^Ai k AK bAbA awk abi aVAk. 

3200 IF N9«3 OR N9*7 THEN 3230 


aAk -^^A h. A .bbhi 4 ^A. bb. _ _ am b bVA .Ab. & aV^b 

( 1 1 ,ZRX «SX)0R< M=l AND B9<100)THE 


32 10 IF N9*FR THEN R*»N»< N9 / 


N R*=""«PA«I1 


:G0T0 3230 


2970 IF<B8-S7<=B9 AND B8+S7 >B9 >0RC 


a 1- *. ■ i j 1- ^ b t f - k Lib ■■ ^ a ^» ^ a a-s 4- Bh 1 a- A r i " \ 

3220 IF N9=9 THEN R»=N*<N9) 


< I 1 ,ZR)< =SX)0R< M=l AND B9<100)THE 


B^k bbbb Ak Ak AAb m ■ ~ ■— A^^ Ak Abl bV^Bh ^Aim 

3230 PA »X( GOSUB 3630 


N GOSUB 3630 


h_ ^^bl bA ^^b bA AbbA ^^^h ■ A. iA. A. ak bbbbbb b bbb A bV^A BVAAk b^bWbA BVflVflB 

3240 IF FX(X)< )0 THEN 3260 


H abb bbb ■ ■. Bb^m bbAA H M ^bbbbb 'AAA ■■■ -b.A^A AAA 4k Abb dhk A& ^^k. ■■■■■ ■ 

2980 IF(B8-S7<=B9 AND B8+S7 >B9 )0R< VX 


3250 PA =X : DlJJ=0 x GOSUB 187U 


< I 1 ,ZR)< ■SK>0R< M-l AND B9<100)THE 


3260 NEXT 


N R* = S*C FNRV< SN) ) 


3270 A=ZR:Al=ZRtG-10sU0=4: GOSUB 3500 


2990 IF<B8-S7<-B9 AND B8+S7>B9 )0R< VX 


Ak ^k AA ^A A^A bbbVbh. bA bBA 

: GOSUB 3530 


b"^A Abbb b"^A 4 4 -^^k ^Hka k Al A A A^ Ai A^^^k A^^k_ Ak A A^ ^Aki ■ 

< I 1 ,ZR >< =SX )0R( M= 1 AND B9< 100 > THE 


3280 FOR X*l TO SX 


N GOSUB 3630 


3230 IF F^< X> >ZR OR V/X X, 


A\ k^H kk All ^AAk AAl kA. ^A^l A^^A A^ h iiA^AAi ^A^k A^^A ^^k ^^^H A^^b AYk k^^A k^^^k A A M ^k 

3000 IF<B8-S7<=B9 AND B8+S7 )B9 >0RC VX 


ZR>>G THEN 3370 


< I I ,ZR)< "SX)0RC M«l AND B9<:100)THE 


3300 IF VX(X/ZPXG THEN G*V>«X,ZR) 


N BX< I 1 )=B9: 18-11 


I A =X I GOTO 3370 


u A& ^^^h ^^^A A^A ^^^k AI Ai A. i^k ^^k AAl ^^HA Ah 4 

3010 IF(B8-S7<=B9 AND B8+S7 >B9 )0R< VK 


3310 IF VXC X,FV> >V/ft A^FVJTHEN A»X 


( I 1 ,ZR)< ■SX)0R< M= 1 AND B9<IOO>THE 


i GOTO 3370 


N A8-B9 J GOSUB 3800 


3320 IF VVM X , FV )< VX( fl ,F V ) THEN 3370 


3020 IF<B8-S7<=B9 AND B8+S7 )B9 )0R< VY. 


3330 IF VX< X,SX> >V>K A ,SX>THEN A^X 


C 11,ZRX>SX)0R<M*I AND B9<100)THE 


:G0TO 3370 






3030 IF B8*S7<B9 THEN PA-I1:RS= M " 


3 > THEN fl=X:G0T0 3370 
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3350 IF VXCX,ZR>-8 THEN AI»V«ft, 

3)*169+V/« A,2)*13+V>K A, 1 ) 
3360 IF VWX,0)«8 THEN X1*V>«X, 

3)* 169+VStt X,2)*13+VX< X, 1 > 
I IF XI >A1 THEN A=X 
3370 NEXT 

33B0 GOSUB 33 10 : R*»L3*< A ) + " TAKES TH 
E POT OF *"+STR*< M%< ZR) )♦" . ":L1-1 

: GOSUB 3770 
3390 I8=AiA8=ZR-MX< ZR) : GOSUB 3B00 
3400 W0=2:G0SUB 3500 
3410 RETURN 

3420 I**"" IGOSUB 3490:PR1NT CHR*< 164 

)"CCRSR VENSTRE > " t 
3430 GET II*: IF I1** U "THEN 3430 
3440 IF I 1**CHR*< 20)AND LEN< I*) >0 TH 

EN PRINT-CCRSR VENSTRE ) "CHR*< 164) 

- < CRSR VENSTRE2) "J 

: I*=LEFT*< I*,LEN< I*>-1 ) : GOTO 3430 
3450 IF I I*-CHR*< 13)AND LEN<I*)>0 TH 

EN PRINT" ";:GOTO 3490 
3460 IF LEN« I*>*10 THEN PRINTS CRSR 

VENSTRE 10, SPACE 1 UCRSR VENSTRE 11) 

"CHR*( 164 )"< CRSR VENSTRE)"; : 1*="' 

(GOTO 3430 
3470 IF I1*<"0"0R I 1 S> "Z "THEN 3430 
3480 I*« I*+I l*s PRINT I 1*CHR*< 164 ) "( C 

RSR VENSTRE) * GOTO 3430 
3430 PA=6 ! R*" " " I GOSUB 3630 I RETURN 
3500 FOR Ul=l TO U0*800:NEXT Ul 

: RETURN 

3510 R*=" " !L1 ■ 1 i GOSUB 3770»L1=2 

i GOSUB 3770 i RETURN 
3520 RETURN 

3530 FOR PA-1 TO 6 : R*" " " * GOSUB 3630 

I NEXT: RETURN 
3540 I*»"":GOSUB 3620:PRINT CHR*C 164 

)-<CRSR VENSTRE) "I 
3530 GET II*: IF I 1*= ""THEN 3530 
3560 IF I 1*=CHR*< 20JAN0 LEhKI*>>0 TH 

EN PR lNT n < CRSR VENSTRE ) "CHR*( 164) 

■ (CRSR VENSTRE2 ) " I 

: I*»LEFT*< I*,LENC I*) - 1 ) IGOTO 3350 
3570 IF I 1*"CHR*< 13)AND LEN< I*) >0 TH 

EN PRINT" "J:G0T0 3610 
3580 IF LEN<I*)-1Q THEN PRINT"<CRSR 

VENSTRE 10, SPACE 1 1 ,CRSR VENSTRE 11) 

"CHR*< 164 )"< CRSR VENSTRE) "; : I*=" " 

(GOTO 3550 
3590 1F(I1*<-0"OR I1*>"9")AND Il*<>" 

F "AND I1*<>"C"THEN 3550 
3600 I*= 1 1 * I ! * : PR 1 NT I 1 *CHR*< 164 ) ■< C 

RSR VENSTRE ) " ; : GOTO 3550 
3610 IF I*«"C"THEN PRINT"<CRSR VENST 

RE2,SPACE2) "; :GOSUB 4480:G0T0 3540 
3620 Pft=6 : R*= * * • GOSUB 3630 I RETURN 

3630 IF RIGHTS R*, 1 )<>". "THEN R*=R*+ 
" . • i VG"1 

3631 IF VG-1 THEN R*"LEFT*< R* , 



UENC R*)- 1 ) : VG=0 
3632 GOSUB 3700:FOR Wl=-2 TO O 

(GOSUB 3730:PRINT " 

iNEXTiGOSUB 3700:R*=R*+" " 
3640 W0= 1 2 : IF Ul 1 + W0 >LEN< R*)THEN UO=L 

EN< R*)-W1 
3650 IF MIO*< R*,UI +UC , 

DO" "THEN W0=UJ0-1 :GOTO 3650 
3660 GOSUB 3730 : PR INT SPC< 6-U0/2 )MID 

*C R*,W1 ,U0 ) : W1*U1 +1-J0 : 
3670 IF Ul =LEN< R*)THEN GOSUB 3730 

I RETURN 

3680 IF M10*< R*,U1 , 1 >< >" "THEN 3640 
3690 Ul-Wl+MGOTO 3670 

3700 ON PA GOTO 3710,3710,3710,3720, 
3720,3720 

3710 PR INT"< HOME, CRSR NED6 )"> I RETURN 
3720 PR INT"< HOME , CRSR NED 17 ) * * I RETURN 
3730 ON PA GOTO 3740,3750,3760,3760, 

3750,3740 
3740 PRINT TABC 1 ) J s RETURN 
3750 PRINT TAB< 14)?: RETURN 
3760 PRINT TABC 27 ) l '• RETURN 
3770 PR INT"( HOME > " ; : FOR XY-I TO 11+L1 

:PRINT:NEXT XY:PRINT TABC 8)1 

(FOR Ll=2 TO 38:PRINT" ";:NEXT 

:PRINT 

3780 PRINT TAB<2 1-LEN(R*)/2)"CCRSR O 
P)"R* 

3790 IF RIGHT*": R*,l)<>". "THEN R*=R* + 
■ . u :VG= 1 

3791 IF VG=1 THEN R*=LEFT*< R*, 
LENC R*)-l ) : VG=0 

3792 RETURN 

3800 PR INT "< SORT) * J * M>CC I8)=MW I8>-A8 

:MXCZR)=MWZR)+A8 
3810 IF FYX IB)=ZR THEN R*= "*" *STR*C M 

XC IB))SG0SUB 3830:PRINT"< SORT)"; 
3820 RETURN 

3830 PA=I8:G0SUB 39I0:C1*3 

: IF PA>3 THEN 3850 
3840 FOR XY"1 TO PEEKC 198 ) +C 1 : PR INT 

: NEXT XY 
3850 GOSUB 3730 : PR INT SPCC 1 ) " 

< CRSR VENSTRE 10)"* : GOSUB 3730 
3860 PRINT SPCC 4-LENC R*)/2)R* 

: RETURN 

3870 FOR PA=1 TO SX:G0SUB 3880:NEXT 
: RETURN 

3880 IF FXCPA)=ZR AND DUN<>-1 THEN R 
ETURN 

3890 GOSUB 3700 : C 1 =2 : PR INT'C CRSR NED 

3)»:IF PA)3 THEN Cl = -3 

IPRINT"< CRSR 0P4)"i 
3900 FOR XY=C1 TO- 1 : PR INT"< CRSR OP)"; 

:NEXT XYiFOR U1=0 TO 2: GOSUB 3730 

:PRINT" fi :NEXT:RETURN 

3910 ON PA GOTO 3920,3920,3920,3930, 

3930 ,3930 
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3920 PR INT"C Hurt J J Kt 1 UKN 


i vxc 11,1 >»a>:c ii-i,0' 


3930 PR INT < HOME ,CRSR rtUcf 1 ? 9 * Kt 1 UKIN 


IV>K I1,2>"AX< 11.2*0) 


3940 FOR rn B l IU ojs • lr UUINS ^-oo nr««i 


4240 IF X = ZR THEN B7«" 120+FNRV< lO0> 


FyX Pft > =ZK I HtN *#U**U 


4250 RETURN 


3950 C*< 1 > = " SOK 1 J 4 * 


4260 OrtTA 2.3.4,5,6,7,8,9. 10 , J . 0 . K , 


1 cs< e > e ■< suk r ) i 1 


4270 DftTA "< S0RT>#" , "< R0D)»" , "< ROD , 


I C«< 3 > ■ m \ SORT ) * 9 


*.<-S0RT)#" 


3960 IF F/.( Pni=c THEN u» J>- 


4980 DATA "SL IM - , "DOC " , "BART" , 


■ i C$' c > — C 3k 1 ) * U 0 J = L»^ I J 


"THE KID" , "TEX* 


397U bubUb 1 U • Ir rn\ ** intlN ousuo j 


4290 OflTfl'STRfllGHT FLUSH ", - F0UR ■ , 


r JU • rK III 1 *- ^\ 1 / 


"FULL HOUSE", "FLUSH", "STRAIGHT", 


39oU FUR UJ1 = I IU d 


■THREE ■ 


3330 GOSUB 3730 * HK INI L m\ tz > • Nla 1 


4300 DATfl'TUO PA IR " , "PA IR OF", 


4UUU Ir Krl >J 1 HtPJ uUoUO JfOU 


■NOTHING" 


v DO T KfT r 'wW 1J \ * 

l r*K 1 IN 1 J^i 


4310 : 


401U Ir r^WrnJ — c IntlN HUHU 


4320 DATA "WHAT 0 1 YA THINK OF *" , 


UflPO I R =P A I Afl = n ; GOSUB 3800 : GOSUG 3910 


"THIS HAhO'S WORTH *" , 


! C 1 ■ 1 * IF rn ?3 1 MtN U 1 — IE 


"I'LL DO IT FOR *" 


4025 PR INT't &UR T ) J 


4330 DATA "HOW ABOUT *", "LET'S TRY S*. 

w h "w "w ww w ^ w w_^r ^w — w h — — ■ — r — ^^^r -w "w "w w -^r 


4030 FOR XY=1 TO PEEKC 1 98 J +u 1 • PR I NT 


"BET YA DON'T HAVE *" 


* * ic ^' t sjv • i^r>o 1 ID 070fl 
I NtA 1 at- bUbUb ifoU 


4340 : 


a nr* r ^ it cor*/ c i rkV l 1 ou i \ y*^ > 1 Qtf D 
I PR I N 1 bPUt o 'Ltr^ L- -3 *^ r* M J /y c J LJM r 


4350 DATA " I AM IN. ■ , "YER BLUFFING.", 




"I'LL GET YER OOl^J. ■ , 


404U NEK I rn * rK INI \ bUK 1 J l * KL J UKP* 


"THAT'S MY CHANCE . " 


4050 B9=VmH 1*^ 


43S0 0ATA "NO PROBLEM. " , 

— — — V W W WW ^^W — — — T" V 


dficn TP RQ = 7 P THFN NH =NH ™ I S FX( SX ) = 1 


"I'LL GO ALONG. "THIS HAND'S ENO 


! bubUb ^fcf ^U •bU IU HI IU 


UGH FOR YOU ALL ."," SURE . " 


4070 IF B9M0OO THEN GOSUB 3510 


4370 DATA " I GOT MORE THAN YOU.", 


:R*=M1*: LI »H GOSUB 3770:U0=2 


1 nrl 1 c> tUUK LPU . 


- GOSUB i^UU (LI -y • IjU 1 U *# 1 IU 


4380 : 


408U IF B9 >P\/*\ oa JHNU bS^ > 1 1 ntIN uU3U 

B 35 10* R* = M^» ■ L 1 - 1 I bUbUb J ^ f U * WU-J 
r finci IQ Q ^ Pi 1*1 ! 1 1 =Q 

• UUoUtJ J jUU * L I * J 


4390 DATA "BUT I WANT 

"I'LL RAISE YOU TO ** r 

— m — - — — — i- ■ — — — v 


" I ■ LL BUMP IT TO »" 




4400 DATA" I'LL HAMMER IT AT «" , 


4 1 UU Ib B bA * no - tjy • bUbUb ^WUU * o/*i oa ^ -og 


"I'M GONNA BLUFF YA WITH *■ 

^^^w — - ■ t ■ ■ w ■^^^v ■^^^^r w H w "W W W H w - 


4 1 1 O Rt I UKN 


4410 OATA"L0OK'S LIKE IT'LL COST YA 

wj w ^w ^ — ww r - — w w i ^^^^w h w — h t -^^^^b- ^^^^r -^^w ^^^r ^^^r "w "w w w 


41cO IF R 1 rbbMUUU IrltlN bUbUb 




1 R»=M I$!L1 = I * bUbUb J r * UMJ — c 


4420 I 


■ ftoci id «nn * i l *o t cnTD «i i 

• UUbUb JjUU»LI *9(UU IU 4 1PU 


4430 DATA "THAT POT'S TOO SMALL FOR M 


m ir Ki+tsy <>rn/A intiN uuoud 3 _> 1 u 


E-", "THESE CARDS STIW.", 

-^^w- w w w h ^^^^h -^^w ■^^^h - ^^^a- w ww w — ^^^r ^^W W ^W W 1 1 "W w w 


* D **MO A ■ 1 1 — fl » • cnci ID 177H f Llfl=3 


■NO CHANCE . " 

^^h- -^^^r w ^rw w w w^^^v ^^^^v 


• bUbUb J3UU • L- I -y • UU 1 U Ml DU 


4440 DATA "DON'T UANNA WIN AGAINST KI 

W "W "W -^^W -^^^W WWW W W ^ — H W W ^W ^^^T W W W ^W ^W W "W W W ■^^^T W W W W ^^^T W W "W 


4 1 40 B9 -R I +B9 * d^C bA^ -B3 * I o -oa • Mo -tJ3 


DS.", "BYE BYE.", "FUCK ME." 


: GOSUB 3SUO 


4450 DATA "SH IT. " , "NOT FOR ME.", 


4 i en otTt iDKI 

4 1DU Kt lUKN 


"TAKE YOUR BLOODY POT. " , 

www r w — w ■ w ^^^v ■^^^^r ^^w ■^^^r w ■ — ■ 


A 1 Rn Pt-Pff CMDU( en ) ) f DA all: G0SU& 3 £30 


■MAYBE<CRSR VENSTRE )E NEXT HAND." 


* r I \ » \ • D*// t 1 ^ - 7 0 r KIU irKIU a 1 

• r/.t I 1 J - l * o/.^ I l J-tKi inm *nri * i 


4460 DATA-LOOK FOR ANOTHER FOOL.", 

w w ^^^w w www i ■ ■ ■ ■ — - w ^^w w w ww W| ^^w w h w ■^^^^r w w ^^w ^^^^v 


i rnr i m o o o o ■ o r Ti id Kl 
! BUbUb JbbU • Kt 1 UKiN 


■0'YA THINK I'M MAO ? a , 

^^^w w w w" -w -^w w^ -^^r w w w -^w- "w -^^^w w ^w- 


4 1 70 GObUb JMU . bUbUb JDoU 


"AIN'T GOT NOTHING." 

"w w — — — m — i r w ^^w www - w m m — — 


4 180 R*» "THANK YOU r UK rLn T IINU . • L* 1 9 1 


4470 I 


: GOSUB 377U 


4480 FOR PA=I TO 5 : DUN=0 


4 190 R«= "UMEN YOU ARE REflDY* 


: IF FX< PA )o0 THEN GOSUB 1870 


WE LL UL HtKt ■ ■ U 1 9 c * bUbUb r ru 


4490 NEXT: 

w w i h i — m — — x" 1™ 


:U0=4:G0SUB 3500 


4491 GET C*i IF C**-"THEN 4491 


tcuu try 


4500 1G0SUB 8000:F0R PA=1 TO 5:DWN=1 


4210 X=2RiIF RND<TIX t 35 THEN X-l 


I IF F'//Pft)»0 THEN GOSUB 1870 


4220 IF X«l THEN BLX< I 1 ) -2 


4510 NEXT: RETURN 

1OOO0 GET A*: IF A*< > "( F2 > "THEN 10000 


i f t 71|7D rD7 - 1 Pfl 4-PNPVC 1 Dfl ' 




4230 IF X»0 THEN BLX( I 1 )■! > I U7)»3 


10010 END 
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GfiMGS 



Lambda 

Ghosthunters 





7 



aw: 





7 



7 




Ghosthunters banden har f3et en 
opnngning fra grev Knight, som 
plages ganske frygteligt af spflgei- 
sen Banden har nu til opgave at 
uskadellgg0re dlsse spskjelser. 
Ghosthunters har tre medlem- 
mer. og de deltageraile med iivet 
som indsats, De har kun 6n laser til 
deres rddighed, og du hjaelper dem 
med tasterne: 
1: til hejre 
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GAMES 




2: til venstre, og 
3: skyd. 

Spillet er selvfortdarende og har en 
fin grafik. 

Hvls du Ikke har en Lambda, Ma- 
raHion eller Power 3000. kan du 
tilpasse programmet til din egen 
datamat I sA fald bar du vsre op* 
rrcerksom pi llnleme 700, 880 og 
1220, Minimum RAM er 16K. 
Seren Frahm og Jesper TiH0b 



10 PRINT 
ii 

20 PRINT 
I" 

3© PRINT 
I " 

40 PRINT 
50 PRINT 



■ — a 



UUI II 
UI IU. 



I" 
II 




60 

i ar r 

70 

mmm m 

160 
NER" 
170 
ISO 
190 
2G0 
210 
220 
300 
BUSTE 
R ER 
RFOR 
MED D 
OBER. 
310 
320 
330 
360 
350 
360 
370 
500 
510 
520 
53© 
535 
540 
550 
560 



print " m r.j i 

PRINT 

PRINT "TAST 1 FOR INSTRUKTIO 



"TOST 
1% 



PRINT 
INPUT 

CLS 

IF Z*="l" 
IF Z*="2" 
GOTO ISO 
PRINT "DU 
R- 



2 FOR SPIL" 



THEN 
THEN 



GOTO 
GOTO 



300 
500 



ER MEDLEM flF GHOST 
BANDEN. NOGLE SPGGELSE 
AT INVADERE ET HUS, DE 
DU SKYDE SPOGELSERNE 
LASER, INDEN TIDEN UDL 
TIDEN UDLOBER DOR DU" 
"VENSTRE TAST 1" 
"HO J RE TAST 2" 
"SKUD TAST 5" 
"TAST G FOR AT STARTE" 
X* 

THEN GOTO 500 



VED 
MAA 

IN 

HVIS 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
IF X*="G" 
GOTO 350 
CLS 

DIM H(5) 
DIM H$(5. 10) 
FOR A=l T05 
LET H(A)=5000 
LET H»(A)="GHOST" 
NEXT A 



570 
58© 
590 
600 
610 
620 
630 
640 
650 
660 



CLS 
LET 
LET 
LET 
LET 
LET 
PRINT 
GOSUB 



SK=35O0 
K=2500 
P=0 
S=3 
N=15 
AT 21. 
1310 



0; "SCORE 



LET 0=1 NT (RND*24)+3 
POKE 16418,0 




670 PRINT AT 23. 1 ! "TID TILBAGE " 

680 FOR M=0 T030 

690 PRINT ftT 22, M! " " 

700 PRINT ftT 5, Qi"?" 

705 PRINT AT 5,0!" " 

710 LET N=N+( INKEY*="2" AND N<27 
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-CINKcY*="l" AND N>0) 

720 PRINT RT 13, N; ■ 

73G IF I NKEY$= M 5" THEN GOTO 760 

735 IF M"30 THEN GOTO 370 

740 NEXT M 

750 GOTC 860 

760 FOR A=18 T05 STcP-1 

770 PRINT AT A, N+2 ! " . " 

730 PRINT AT ft,\+2i" " 

790 NEXT A 

SO© IF N+2=Q THEN GOTC 320 

310 G0 T 0 700 

320 LET =»=P+i31-tr> *10 

330 PRINT AT 21* Of* SCORE "IP 

340 IF P>=K*2 THEN GO"C 1360 

350 IF P>=5K*2 THEN QDTO 1380 

360 GDTO 640 

370 FOR W=l TON 

S80 PRINT A T 19, Ml" ?" 

390 NEXT W 

900 LET S=S-1 

910 FOR A=0 TQ 20 

S20 PRINT AT 19, Ni" A" 3 " 

330 NEXT P 

340 GOSUB 1310 

350 IF S=0 THEN 3CT0 1400 

960 LET 10 

970 °RINT A" 22, \-9! " 

380 30TG 700 

330 ^ET P*=STftS CIW? CP/16-}) 
1GO0 LET B*="BONLS="+ 3 * 
LET C*="bor.us»" 
FOR V=l "CLEN Pi 
LET C4=C*+CrR* CCODE ?*<Vi+ 



loie 

1020 
1 036 

) 

1O40 NEXT V 

F3* fi=0 7021 
PRINT fi- 10, iO'.3« 
PRIN T AT 10. 1«IC» 
PRINT AT 10. 10; " 
lOSO NEXT a 

1090 LET 3=p+:nt CP/lOi 
1100 PRINT A~ 21,0; "SCC3I 

til© GOTO 640 

1120 IF S=3 T HEN GOTO 640 

1130 FOR A=l T013 

1140 PRINT fiT iO.SS "BONUS 



: ©so 

1O60 
IO70 
1075 



11.9 



'PNC 



1150 PRINT AT 10,8l "bo-iusBma-.-.d" 

1 155 PRINT AT ;0. Si ' 

1160 NEX~ A 

1170 LET 3=S+(S(S)- 

1130 GOSUB 1310 

1190 PRINT A" 21,0; "SCORE H ;P 

1200 GOTO 640 

1210 FOR V=l 'ON 

1220 PRIN T A" 19, V! "?" 

1230 NEXT V 

1240 LET S=S-1 



1250 FOR A=0 T020 

1260 PRINT AT 19, N ; " " 

1270 NEXT A 

12S0 GOSUB 1310 

1290 IF S=0 THEN GOTO 1400 

1300 GOTO 640 

1310 FDR X=l T 0S 

1320 IF X<S THEN PRINT AT 2,32-X*4; 
"ei "a" 

1330 IF X> =S THEN PRINT AT 2, 32-X*4 

all 1 1 

t 

1340 NEXT X 
1350 RETURN 
1360 LET K=K*2 
1370 GOTO 390 
1380 LET 8K«SK*2 
1390 GOTC 1120 
1400 PCKE 16413,2 
1410 CLS 

14.20 PRINT AT 13, 12? "GAME QVZR" 

1430 FOR 3=1 TC5 

1440 IF P<H<B) ThE!\ GOTO 1540 

1450 FOR A=5 TCB+1 STIP-i 

1460 LET H(S)=HtA-l> 

1470 LET H»*<ft)"04*<8ri) 

14S0 NEXT A 

1430 CLS 

T.500 =»RINT AT 10. 12; "HVAD ER 02T X 
AVN" 

1510 INPUT :-4TB) 
r. 520 LET -i(B) = P 
1530 LET B=6 
1S40 NEXT B 
1550 CuG 

1560 FOR A-'ii TC20 

m rar »ram ■ 

153© NEXT A 

1990 °RINT AT 1, A 0;"h.9hBscore" 
1600 FCR F.= l T05 
I6i0 LET B**STR» A 

1620 a r?INT A" 4+fi*2, 5vCnR4 (CODE B* 
128) !"■■"; 

.621 FDR C=l TC-EN H*tft3 

1622 °RINT CHR* (ZDD Z ->4 < A, C J + 123) I 

1.623 NEX~ C 

1624 >ET A*=S"R* HCfl) 

1625 PRINT ST 4+A+2, 26--EN A*; 

1630 FOR C=l TDLEN A* 

1640 PRINT CHRS (CODE A*CC)-*l2S>: 

1650 NEXT C 

1660 NEXT A 

1670 PRINT AT 21, 2; "ST NYT SP2L CJ 
/N) " 

1680 IF INKEY«="J" THEN GOTO 500 
1690 IF INKEY*="N M THEN STOP 
1700 GOTO 1630 
9998 SAVE "G.-iOot" 
3999 RUN 



26 - "TAST!" 1/87 



Er du en flittlg Kjyds a TVws-l*- 
ser. vil 'Ordleg" heit klart falde i 
din smag. PS din 64'er kan du ta- 
ste op til 50 ord ind. hvorefter 
computeren blander dem godt og 
grundigt sammen. Det guelder nu 
om at finde alle de Indskrevne ord, 
hvilket faktisk godt kan vsere 
sv^rt, da de kan vsere skrevet b5- 
de forlaens, baglasns og skr^t 
Hvts du er den heldlge ejer at en 
MPS801 -printer, kan du ogsi fS 
din opgave ud pS tryk 

Peter Cordes 



Commodore 64 

Ordleg 




6 REM******************************* 

*# 

1 REM* ORDENE GENMES PAA ALLE MULIGE 

* 

2 REM* MAABER: OPAD ELLER NEDAD. PAR 

* 

3 REM* SKRAA, FORFRfi ELLER BAGFRA. . . 

* 

4 REM**** ******* ******************** 

** 

;P3=2;P4=2:K«256 
6 DIM 14*(51>,R(15>,D(S1,N>,T*(2>, 
CJ<N/ 

5 JY=56320:SID=54272 

16 FOR 1=2 TO 24:P0KE SID+I,2 ; NEXT 

11 POKE SIIW24,15:P0KE SID+5,9 

12 POKE SIB+1S, 126 = POKE SID+15,255 
:R=SID+2?;REM * RANDOM HUMMER GEN 
ERATOR ******* 

15 FOR 1=2 TO 15;READ U : R< 1 )=U = NEXT 

16 DA TA-1, -1,-1,0,-, 1,1,0,-1,0, U%4 
-1,1,0,1/1 

20 Elf= B (GUL.CRSR NED)ORDET FOR LUNG 
TCCRSR NED,LILLA> M :E2*="(GUL, 
CRSR NED>ORDET FOR KORTCCRSR NED, 

LXU-fl>" 

25 T*(2>=" , 

30 T$<N>=" I SOG ORDENE 
35 T*<2)=" ' 

•jo cj<2>=chr*<i2&>*" <rvs on, 

SPACE)-*.'! ■ 
45 C#<N>*" (LILLA, RVS ON, 



» it 
P 



SPACE >■ 



50 PRINT CHR$04> :REM*SMAA BOOST AVER 
**** 

55 GOSUB 13000 -REM ****TITEL 

56 PRINT CHR*U29) -REM ****ORANGE 



57 REM**.**************************** 
**# 

58 REM* INSTRUKTIONER ************** 
*** 

59 REM****************************** 
*** 

60 PRINT" < CRSR NED2.CRSR H0JRE2JLABY 
RINTEM GAAR EN TEN PAA TV 

65 PRINT"<CRSR NED, CRSR H0JRE2> ELLER 
PRINTES UD TIL SENERE BRUG. " 

•• PRINT" < CRSR NED, CRSR H0JRE2)~WA 

TV KAN DU KUN HAVE 20 ORD. " 
75 PRINT" < CRSR NED, CRSR H0JRE2>"BA P 

R INTER OP TIL 50 ORD." 
30 INPUV<CRSR NED2, CRSR H0JRE2>$»>= 

•KrtRM - (~I>=~RINTER ";DEV* 

:DEV«*LEFTf<UEV*,D 
85 IF DEVJO"P"AND BEV*<>"S"THEN RUN 
36 IF DEV*0"P"THEN 105 
10O INPUT" (CRSR NED)XIL DU HAVE L0«x 

i/l OGSAA <J/N? ";ANS* 

;ANSJ°LEFT*<ANS*,1> 
105 GOSUB 13008;PRINT"<CVAN>" 

= IF DEV*O u P"THEN 115 
HO PRINT" (CRSR NED4,CRSR- H0JRE4>»KR 

IV MEL L EM 1 OG 50 ORD.":GOTQ 120 
115 PRINT"<CRSR NEB4 , CRSR • H0 JRE4 ) »KR 

IV HELLEM 1 OG 20 ORD." 
120 PR-IMP' (CRSR ' NED, CRSR- H0JRE4 ) IVER 

T ORD FRA 2 TIL 10 BOGSTfiVER. " 
130 PRINT" (CRSR N£D><*-> »LETTER SIDS 

TE ORD." 

140 PRINT"<CRSR NED>(») »LUT FOR IND 

SKRIVNING" 
150 PRINT TAB(7>"(CRSR NEBS, RVS ON, 
GUL , SPACE > TRVK \-LLTw\ FOR STAR 
T " 

160 K$=" " i GOSUB 16O00 
: REM*HENT TAST**** 
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GAMES 



16* ftEH+*i+++*t*M******««*##*:****** 
#** 

170 REM* GRBINPUT ****************** 

*** 

171 REM***************************** 

*** 

13* PRINT CHR*O42>:REM****ST0RE BOG 

ST AVER 

150 PRINT" <CLR, CRSR NED,GR0H,RV3 ON, 
SPACE 12>SKR IV ORDENE HU. 
(CRSR NEB2,LILLA>" 
155 U-N 

200 PRINT "SKRIV ORB NR. "Wi : INPUT U* 
210 1.-" U$="Q"THEN 300 
220 IF U*«"*-"THEN W«W-N:GOTO 200 
230 IF LEN<U*X2 THEN PRINT E2* 

=GOTO 2oO 
240 IF LEN(U*»10 THEN PRINT El* 

^GOTG 260 

243 FOR I=Z TO W-N=IF U*-W*<I>THEN G 

OSUB 12000:1=98 
250 NEXT 1 F I»95 THEN 210 

255 Bl-Bl+LENCU*) 

256 FOR I-N TO W-N'IF L£N(U* >->LEN(W 

*(I)>THEN B2=M=59 
25? NEXT 

258 FOR U«k TO D2 STEP-N 
:M*<U+N>»M*<U> : NEXT 

259 W*(D2>-U* 

260 H-14+N'IF U>28 AND DEV*« " S " THEN 3 
Oo 

270 IF W<=50 THEN 200 

300 GOSUB 1 40OO i REM *VENT*********** 
**•* 

310 NG-W-N 

399 REM***************************** 
*** 

400 REM* FYLB KVABRAT ************** 
*#*. 

40 1 REM***************************** 
*** 

410 F«FRE(0) REM *RENS ****** ******** 

*** 

420 DIM ANS-.NG,N,N>,FO<NO> 

440 X=INT(SQR<B1#2>)-V=INTC(B1*2>/X) 

450 IF LEN<W*<N>»X OR LEN(W*<N)»Y 

THEN B1«B1+N;G0T0 440 
470 IF DEVS="S"AND V>17 THEN Y-l? 

:X-20 
430 DIM GfCX.V) 

490 FOR W=N TO NG^PGKE SIB+N,W*5 

: GOSUB 180O0 : U*=W»<M> =LN»LEN<U*>-N 
Sow PRINT TAB(24)"(RVS ON, CRSR OP* 

SPACE3 , CRSR VENSTRE3 )"3TR*< NO-W+ 1 > 
510 P3=INT<PEEK<R>^K*V)+N 

: P4- I NT < PEEK < R >/K*X > >H 
520 D=INT(PEEK<R>/32)*2:D1=R(D) 

: D2=R< D+ 1 > i A=Z ' U*Z 1 P 1 =>P4+B 1 *LN 

:P2=P3+B2*LN 
540 IF P2<N OR PKN OR P1>X OR P2>Y 

THEN 510 
550 B*=G*(P4+D1*U,P3+D2*U> 

i IF BJ-HID*<U*.U+N,N)TMEN fi-A+U 

•GOTO 57G 
560 IF B$<>" "THEN 510 
570 U-U+N: IF UC-LN THEN 550 
530 IF A=LN+N THEN 510 
550 ANS(W.2,Z>=P4:flNS(W,N,Z>=P3 

:RNS<W.Z/N>-P1 :ANS(W,N,N>»P2 

:D<U,2>-Di :D(W,N)-D2 
620 FOR I=Z TO LN:G*CP4+D1#I* 



P3+D2* I >=M I D* ( U*, I +N - N > : NEXT ! NEXT 
690 GOSUB 17000 : REM *TID************ 
**** 

70o GOSUB 1 ©OO© : REM *ALFABETISK SORT 
ERING 

710 POKE SID+N, 90: GOSUB 18000 

: REM ****LVD 
720 IF DEV*="S"TMEN 5900 
7'„'7 REM***************************** 

*** 

796 REM* TIL PRINTER *************** 
*** 

799 REM***************************** 
*** 

800 PRIHT"(HOME,CRSR NED2,RVS ON, 
LILLA>"TAB<10>" TRVK <P> FOR PRIN 
T " 

310 K*="P" GOSUB 16O00 

820 PR I NT " ( CLR , CRSR NED2,RVS ON, 

GUL) "TAB< 13) "PRINTER. . . ■ 
330 S0**CHR*C14>:BS*=CHR*<3>:TS*12 

! SP- < S0- (X*2+4 ) > /4 : ANS-Z 
870 OPEN 1,4 ''GOSUB 1 1000 : PRINT* 1 
910 FOR 1=N TO NO:U*a>-LEFT*<M*a>-». 

920 FOR U=N TO 7 

930 I-I+NIF DNO THEN U*="":GGTO 960 
940 U*»W*<I> 

960 PRINT#i/U$;:IF KNO AND U<7 THEN 

PRINTttl , " 
970 NEXTiPRINTtU^IF KNO THEN 920 
980 PRINT#l,CHRS';i3>SPC<27); 

;FOR I-N TO 2S:PRINT*1, M -"; :N£XT 

: PRINT* 1 

106O PRINT#1,3PC(27>" KAN BU FINDE "S 

TR*(NOV ORD" 
1160 PRINT#1,SPC(2?>" INBEN FOR " ; TT* 
1170 PRINT#1,SPC(27):F0R I-N TO 28 

: PRINT#1 j :N£XT 
1175 IF ANS*""J"THEN ANS-N 

:PRINT#1,CHR*C10) GOSUB 11030 
1180 PRINT#1 =CLOSE 1 :PRINT"<CLR>"CHR 

*<14) :GOTO 5430 

4997 REM**************************** 
*** 

4998 REM* PAA TV ******************* 
*** 

499 j» REM**************************** 
*** 

5G00 PRINT CHR* (14 ): GOSUB 13600 
50O2 PR I NT "< CRSR NEB. CRSR H0JRE2. 

GR0N) I RUG CURSOR-TASTERNE ELLER J 

OYSTIK 2." 

5010 PRINT" CCRSR NED, CRSR HoJRE2>-l, 
-3,-5, IOME: URSOR I KANT ERNE . " 

5011 PRINT" (CRSR NED* CRSR H0JRE2)_IN 
D ET ORD, PLACER CURSOR PAA START 

5013 PRINT" (CRSR NEB, CRSR H0JRE2)B0G 
STAY, TRVK ELLER -7, GAfl TIL" 

5015 PRINT"(CRSR NEB, CRSR H0JRE2>SID 
STE BOOST AV, TRVK ELLER -7." 

5019 PR1NT"(CRSR NED, CRSR H0JRE2>»VA 
RES RIGTIGT VIL ORDET BLIVE GULP 

5020 PRINT" (CRSR NEB, CRSR H0JRE2)OG 
NEGATIVT OG FJERNES FRA ORBLISTEN 

•I 

5025 PRINT" < CRSR NEB . CRSR H9JRE2X*) 
FOR AF3LUTNING HVIS DU OPGIVER*." 
5023 PRINT TAB<7>"<CRSR NEB2.RVS ON, 
LILLA,SPACE>IRVK MELLEMRUM TIL ST 
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GAMES 



ART " 

5023 K*"" GOSUB 1600© : REM HENT TAST 
5035 SO*«CHR*(0)'B*«CHR*<0>'TS=4 

J SP-IN". (24-(X+2) )/2) • ANS=Z ! A*=Z 

■SC-2 

5O40 GOSUB 150O0;REM *PRINT Pflfl TV** 
**** 

5045 Tif^eeeew 

5O50 PRINT" (HOME. CRSR NED6)"SPC(SP+N 

>; 

5090 DEL=Z:RV-128 

5 1 OO U=PEEK < 2 11 > +PEEK < 209 ) +PEEK (218) 
*256 

5il0 POKE U.PEEK(U)+RV 
5120 J=PEEK(JV):GET K* 

:IF K*O""0R J-127 THEN 5208 
5130 DEL=DEL+N : IF D£L*10 THEM RV*-RV 

:DEL-Z;GOTO 5110 
5H0 GOTO 5120 
5200 POKE U, PEEK <U) AND 127 

:VP»IMT<CU-1024>/'40> 

■XP«U-(I024+40*VP> 
5202 P1=N-(J AND N>:P2«2-CJ AND 2> 

:P3"4-(J AND 4)P4«8-(J AMD 8> 
5205 IF(K$=»"(CRSR VENSTRE>"OR P3)AND 
XP>SP+N THEM PRINT" CCRSR VENSTRE 

)"; 

5210 IF(K*="(CRSR H0JREVOR P4/AND X 
P<SP+X THEN PRINT" (CRSR HOJRE)";* 

5220 IF (K**" (CRSR NED?" OR P2)AND VP< 
5+V THEN PRINT"<CRSR NED)"; 

5230 IF(K*="(CRSR OP) "OR PDAND VP>6 
THEN PRINT" < CRSR OP)"; 

5231 IF K**=CHRIC133)THEN PRINT" ".HOME, 
CRSR NED6)"SPC(SP+X)J 

5232 IF K»»CHR*( 134) THEN PR I NT "(HOME. 
CRSR NED6>".-F0R I-N TO V 
=PRINT"<CRSR NED)";:NEXT 

■ PRINT SPC<SP+N>; 

5233 IF K«=CHR$( 135) THEN PRINT" (HOME, 
CRSR NED6)"; :FGR I»H TO V 
:PRINT"(CRSR NED)", -NEXT 

■PRINT SPC(SP+X); 
5240 IF K*=" (HOME) "THEN 5050 
5250 IF K»="A"THEN flHS«N: GOSUB 15000 

: PR I NT " < SORT , CRSR OP)" -END 
5255 IF K«OCHR*(136)AND JOlll THEN 
509O 

S260 IF A=N THEN 5290 

5278 Dl«U*54272;POKE D 1 , 7 : D2-XP-SP 

.SV-VP-S^A-N^GOTO 5090 
5290 FOR I=N TO NO 
530© IF ANS(I.2,Z)-OD2 THEN 5326 
5310 IF ANS(I,N,Z)-SV AND ANSd.Z, 

N)=XP-SP AND ANSd.N/ 

N)*VP-5 THEN ANS=I 
5320 NEXT 

5330 A=Z:IF RNS=Z OR FO CANS) THEN POK 

E D1/2^G0T0 5050 
5340 FOR I=N TO LEN(W*(ANS) )-N 

:Dl«Dl+<40*D<flNS,l)> 

:D1=D1+D<ANS,0> 
5345 POKE SID+1, 1*10 -GOSUB 13000 
- • POKE D1,7:NEXT I 
5350 PRINT"(HOME,HVID>"; 

•FOR I=N TO AHS+N : PR I NT " ( CRSR NED 

) " ; • NEXT 

5355 PRINT SPC<29); = FOR I-N TO LENCW 

*<ANS)):pRINT"*"; :NEXT 
5360 FO<ANS)=N:SC=SC+N 

: IF SCONO THEN 5050 



5362 T*=TI*:IF VAL(Tt)XVAL(S*) + 100* 
VAL(M*))THEN 5364 

5363 C=Z:FOR I«Z TO 255 STEP 4 
;POKE SID+N, I=GOSUB 1 8000 : NEXT 
^GOTO 5365 

5364 C-N:FOR 1-64 TO Z STEP-N 
POKE SID+N. I ; GOSUB leOOO^NEXT 

5365 M*«M1D*CT*,3,2> + ,, M. ■ 

: S*=R IGHT* C T* , 2 ) + " SEK. " : SP*= " " 

5366 IF VAL(M*XN THEN M**"" 
:SP*-- 

5370 PRINT CHR»( 14) -GOSUB 13000 
5380 PRINT" (GR8N. CRSR NED2>~N GOD TI 

D FOR DETTE VAR:(URSR NED)'* 

•PRINT "(CRSR VENSTRE) "TT* 
5390 PR I NT "< CRSR NED)~U VAR "M^S*' , 0 

M AT AFSLUTTE. (CRSR NED4)" 
5400 IF C=Z THEN 5415 
5415 PRINT TAB(13)LEFT*(C*(C).2>; 

•FOR I=N TO LEN<C*(C))-2:PRINT" ", 

:|.EXT 

5420 PRINT ; PRINT TAB(11)C*(C) 
5425 PRINT TAB< 13)LEFT*(C*(C) . 2) i 

FOR I=N TO LEN(C*(C)>-2 : PRINT" "J 
! NEXT 

S430 PRINT-PRINT TAB(9)"<CRSR NED3. 

GUL.RVS ON,SPACE)~N GANG TIL < V/ 

) ?(RVS ON)"; 
5435 POKE 19. N: INPUT K*:POKE 19, Z 
5440 IF K*0"N"THEN RUN 

5450 PRINT"(CLR)"CHR*(142)"(CRSR NED 
3.RVS GFF)SE, SE/ MAN ER EN DfiflRL 
IG TABER, SE, SE" 

5451 PR I NT "(CRSR NED2)NAA, 

MEN HA' EN GO' DAG. OG KOM I GEN" 

5452 PRINT"(CRSR NED2)NAAR BIORVTMER 
NE ER MERE TIL DIN FORDEL" 

5453 PRINT" (CRSR NEDS. CRSR H8JRE4. 
SPACE )BV'E-BVE * TUTTE-LI-TU" END 

9997 REM************* 

9998 REM* SORTER I NG * 

9999 REN************* 

10000 IF NO=N THEN RETURN 

10010 Dl«2t<INT(L0G(NO-N)/L0G(2)>+N) 
1OO20 Dl=Bl/2 

I0030 P3*N0-D1-P2=Z:IF DKN THEN RET 

URN 
10040 Pi=P2 
10058 P4=P1+D1 

10055 IF W*(P1»U*(P4)THEN 100S0 
10060 P2=P2+N:IF P2>P3 THEN 10828 
10078 GOTO 10840 
10030 U*-W*(P1) -Ui(Pl)*W»(P4) 

U«(P4)=U* 
10090 FOR I=Z TO N'FOR W«=Z TO N 
1O10O U-ANS(P1.I.W)-ANS<P1.I. 

W)=ANS<P4.I.W):ANS(P4. I.W)-U;NEXT 
10110 U*D(F1,1)D(P1.1)«D(P4,I> 

:D(P4.I)-U-NEXT 
10128 P1»P1-D1 ; IF PKZ THEN 1006O 
10138 GOTO 10O5O 
18990 REM PRINT SQUARE 

1 0997 REM ******* * A****************** 
*** 

10998 REM* KVADRAT ***************** 
*** 

1 8999 REM ***************** ********** 
*** 

11000 PRINTttl,SO*SPC<TS)T*(0>BSt 
11810 PRINT* 1 . S0*SPC ( TS ) T* ( 1 > BS* 
11820 PRINT#1,S0*SPC(TS>T*(2> 
11830 PRINT)tl.CHR«(I3)S0*SPC(SP? 
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•FOR I=N TO X+2 ; PRIHTHi . "*" ; : NEXT 
• PRINT* 1 
11640 FOR I=N TO V^PRlNTHl. 

spc<.sp>"*"; 

11050 FOR W=N TO XPRINTttl , "(ROD)" ; 
11060 IF G*(W, I>=""AND flHS«Z THEN PR 
I NTtt 1 , CHR* C64+ INT <PEEK<R>/K*26+1 > 

>;:GGTO 11030 
11070 ir G*<W,I>=""ANB AN8-N THEN PR 

1NTK1." :GOTO 11090 
UO80 PRINTt*l,GS<W, I>; 
1 1090 NEXT : PRINTtU , ■ CGUL>»" : NEXT 
11100 PRINTI*1,SPC(SP^F0R I=N TO X+2 

:pRINT*l,"V; 
11110 NEXT:PRINT»UCHR*<15>: I=Z 
11120 RETURN 

12000 PRINT" <CRSR NED-OUL, 

SPACE>IKKE EN GANG TIL, VEL. "U* 

•PPINT"ER BRUGT. 
12010 INPUT"<CRSR NED, 

GRON)ET HNDET ORB, TflK. "AW 
12020 PRINT"<LILLA>" : RETURN 
13000 PRINT" (CLR) ■: POKE 53281,2 

:POKE 53280.11 
13010 PRINT TABC4>"CGUL,RVS ON, 

SPACE32)" 
13020 PRINT TAB<4>"(RVS ON, 

SPACE) -I ND DE GEMTE ORD I LflBVRIN 

TEN " 

13030 PRINT TAB<4)"<:rVS 0H,SPACE32)" 
13040 RETURN 



14000 PRINT" <XLR,CRSR NED2,RVS 0N>"; 

CHR*C154>iTfiBCll)" VENT LIDT. . . " 

i RETURN 
15000 PRINT" < CLR, CRSR NED, 

GUL)"CHR*<142>; :POKE 53280,2 

:POKE 53281,10 
15010 FOR WZ TO 2= PRINJ SPC<TS>"<RV 

S ON>"T*<I)"CRVS OFF > " : NEXT 
15O20 OPEN 1,3;G0SUB 11030 -CLOSE 1 
1503G PR INT" < HOME ) " SPC ( 24 ) " < RVS ON, 

ROB,SPACE)ORDLISTE "i 
15040 PRINT SPC<24>"CRVS ON, ROB, 

SPACE16)"; 
15050 FOR I=H TO NO^PRINT SPC<24>"<R 

VS ON, SPACE, RVS OFF>"LEFT*<STR*<I 

"v 4>ttfrH) ( HGCT 
19060 PRINT 8PC<24)"<RVS ON, ROD, 

SPACE 16) " 
15070 RETURN 
16000 POKE 198,2 

160 10 GET KEY*: IF KEY* OK* THEN 16010 
16020 POKE 198, 2 ; RETURN 

1700O TT=(N0*3)tl.S5 

17610 l1=INT<TT/6O> S=INT<TT-<t1*60)> 

17020 I11=STR*<M) + "M" S*=STR*<S)V SE 

KUNDER" : IF VflL<M*/<l THEN H*»*" 
17030 TT*=MI+S* 
17040 RETURN 

ISOOO POKE SID+4, lo^POKE SID+4, 17 
: RETURN 



Amsttad 



Password 




Det er kendt. at man kan SAVE si- 
ne Amstrad -programmer. sS de er 
t>eskyttede. N3r de fs»rst er beskyt- 
tede. kan du tkke fjeme beskyttel- 
sen og liste programmeme. Med 
dette program, der lasgges i star- 
ten af et andet program, vil pro- 
grammet starte med at sporge om 
et password, hvorefter det vil un- 
derage, om du har givet det rigti- 
ge. Har du dec vil maskinen lade 
dig fa" adgang til programmet 
Passwordet gemmes i en streng 
og 1 vores eksempel er det ordet 
"komma*. Det kan du selv a?ndre. 
som du vfL 

tersten 5. Paulsen 
10 -forsoeg=2 

20 PEN l:PRINT-Indtast password :"i:PEN 
30 IF p*="Uomma, ■ THEN POKE ScAE45,0:PEN 
40 +orsoeg=*orsoeg-l 

50 IF *orsoeg=0 THEN CALL 0 ELSE PEN l:PRINT"Fejl 



0ILINE 
1 : END 



INPUT 



iCHR»(7) :QOT0 20 
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ZX81 



PACMAN 
- pa I Kl 




Hvad skal man med en Amiga med 
256 Keller en Atari med 512. n3r 
aiietiders klassiker - ZX81 - kan 
holde et heit Pacman-spil p& kun 
een Kl 

Jo. den er god nok. Her er "den 
med osten" p& en ganske. almlnde- 
lig uudvldet ZX81 computer Pro- 
grammet indeholder en komplet 
labyrintmed 15 x 16felter.6ud- 
gange. to spmgelser. energiplller 
og alt det andet. der horer sig til i 
et cegte klasslsk Pacman. 
Hardu l6Kudvidel5e)din8rer, 
skal du hive den ud. Ellers virfcer 
fillet ikke. 

Du styrer dm "ost" med piietaster* 
ne. undtagen mod venstre. Her 
bruges 9 istedet for 5. Tryk SHIFT 
for et nyt spli og husk, at splllets 
hastighed ievngt stiger hele tidenl 
Programmeteri lOCWbmasklnko- 
de og fylder 502 bytes. Derfor skal 
det lag res i en REM-sxtnlng pA 
502 tegn. Denne REM-sietntng 
danner du lettest ved at indtaste 
en REM med 45 tegn i linje 1 0; 1 0 
REM 

01 234567890 1 234567890 1 23- 
456789012345678901234 
Denne linje EDITerer du s5 og sen- 
drer linienummeret. s3 den star 
kopleret pA linjeme 10-19. hver 
med de samme 45 tegn. 
I linje 19 tog kun i linje 19) Qeme 
du to tegn fra linjen, far du indlce- 
ser den (sA kan der er43 tegn efter 
REM). 



Bema?rk; Der kan va?re problemer 
med at EDITere efter linie 17 - 
hvls du lige sknver CLS Inden du 
trykker EDIT, ordner det slg.Nu 
skriver du si: 
POKE 16511.248 
POKE 16512. 1 

Dette ffir computeren til at opfat- 
te alt hvad du har skrevet i linje 1 0 
bl 19 som een linje. Tryk IKKE 
LIST, heller ikke selvom du er nys- 
gerrigll 

Indtast herefter program I og SA- 
VE det for en sikkertieds skyld. Nu 
kommer vl si til det ngtigt sjove: 
Sknv RUN og indtast tallene i ud- 
listningen. et efter et. Det tager 
tid. Og Veer meget forsigtig og nay 
agtig hele tiden. Det er maskinko- 
de. s& bare et eneste forkert tal og 
crash, masklnen gSr ned. 
N5r du er ferdig med at indtaste 
tallene. s3 skriv; 
20 SAVE "PACMAN* 
30 RAND USR 16760 
40 
50 
60 

SAVE "OKPAC* 
RUN 

-sd hardu en kopi af spllletpdbdnd 
("OKPAC). hvis det ikke skulle 
were ngtigt indtastet. 
N5r du skriver RUN (ovenfor) gem- 
mer maskinkoden en kopi af spth 
let ("PACMAN"), der automattsk 
starter. n3r den loades. 



DECIHfiL LISTNINOi 

THE REAL PRC MAN IN MACHINE CODE 



, 107, 168, 1, 130/84,43,2 
139 ..213, ISO, 21 , 173, e3 , 
, 1, 255 , 255 , 56 , 40, S2 , SS 

23,58,23, 28 , iQ , X-!0 , 0 , U 
-139. 16/67/2,27, 139,1/ 

O/B . 33 , 130,54, M .jO,G ; 

5,40 . 15,203/ 127,32,7/5 

41,23 ,24 , 241 ,62 . 125 . 24 

3 . 4o / io / 203 , &B>£a,a>aa 

5,24/ 220 . 42 , 12 , 64 / 1 , 66 
.1, 16© , O .9 ,54.23,253 .5 
Si, 17 ,72,64 f 14,5,237 , 1 
4 , 50, 75,64 , S5*,40,3£/ 1 
, 254 / 0, 32 , 7/ 110/ 42, 223 
7/66,62,0,119,56,52,6* 
56 , 7a / 64 , 169 .254 ,3,40, 
17,0, 254, 0 , 32 , 1 , 43 , 254 
25* ,2,32/2,237 , 66 , 2*^4, 
87 , 126 , 254 , 126 , 40/ 164 , 
, 5 , 254 / 1 1 , 4© , 2 , 24 , 2 , 62 

01 r 122 . 50 , 74 .6-1 , 1S& . 2* 
, 122/24 , 190 ,56 , ?t> , 64 , 1 

4,33,72,64, 14 /S/ 201,62 
90 f 6 , 20O, 1,0,0, 205 , 245 
54,1, 12/0,205/ 107, 11, X 
43.13,64,14, 106 , 9 , 3* , 1 
8.9.34, 179 , 64 f 14, 33 . 9 , 
S3 , 172, 64 , 17, 6« , fr4 , 14 f 
-33, 62 , 64/205 ,251,64,1 
7 , 176 / 58,60,64, 254 ,0,2 
53,61,64 ,254 ,0,40,7,25 
, 11,24,2,62 , 139 ,50 , 66 , 
4,1,0,15,11, 120 , 177 , 32 
, 54 , 205 ,25 1,64, 17,67,6 
42 . 123 / 64 , 14, 17, 54, 0,5 
4,223/32, 1 ,9,254 ,239,3 
, 254 .247 , 32 . 1 ,35 .254 , 2 
, 126 , 254 r 123 , 32 , 3 , 42 , 1 
23,64 . 229 . 126 .254 .0 ♦ 40 
S , 32 * 3 , 225 , 24 , , 254 , 

2 54, 11, 32/ 27 , 237 ,91 / 62 
.40,5.. 17,67,64,24,3, 17 
179,64,237, 160,237, 160 
7, 254, 23, 32,8/ 253, 54,6 
4,5,253 / 53 , 60, 6, 1 ,42, 1 
,0,25,126,60, 254 , 36 . 32 
3 , 24 , 245 / 119 , 16 ,235 , 22 
5,169,55,54, 16© ,225 . SQ 

.254 ,32,249, 195 , 114 , 65 



169,41, 173 
15, 232, 17 , 
45, 109, 129 
.42, 14,26 . 
54/66/1,2^ 
0, 1 ,205, 24 
9, 126 , 245 . 
2,27 ,215, S 
,247,241, X 
, 11U . ilb / 3 
.0,9,54,23 
4,60. 120,2 
76 ,42,72,6 
6,50,01,64 
, 64 / 195, 10 
-230 . 3 wS, 
242 - l2l/ 1, 
,1,32,1,9, 
3,32, 1,35, 
254 / 139/40 
,27,50.75. 
4 , IIS? , 32, 3 
ly , 34 , >*2, 6 
/ 221 / 253, 1 
, 6 , 17 , 160 , 
05, 104, 64 . 
74 ,64 , 14 . 1 
34, 123,64, 
1* - 2^7 < 175 
7,62/64/23 
04 , 164/ 64 , 
3/53, 61 ,62 
64,50,71,6 
,251 ,33,67 
4,23/, 176 , 
6,3©, 64 ,26 
2, 2, 237, 66 
51 ,32 , 1 , 43 
23,64 ,34, 1 
. ^0 . 254 - 11 
139,40 . 7S, 
,64 ,237/62 
.62 .64, 33, 
,6,20,24, 1 
1 , 30 , 6 . S . 3 
2,64, 17/11 
/ 5, 54/26/ 4 
5, S4,40 , 19 
, 30/ 64 / 2S4 
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Commodore 64 



Drommetydning 



Engang var der en mand, som bed 
Sigmund Freud. Han mente og 
kunne tildelsbevise. at vore dram* ~ 
me genspejler vores inderste f*Iel- ™ 
sen De felelser fandt han sA frem 
til ved at analysere og fortolke dis- 
se dremme. 

Der var blot een ting ■ drommene 
kunne normalt Ikke huskes mor- 
genen derpS. Men nu til vor tids 
vldundermiddel, computeren. 
Denne masktne vil efter endt ind- 
tastnlng af dette program vsere i 
stand til at hj»lpe med at genop- 
friske sldste nats hede dn»mme. 
For at den kan gere dette. m3 man 
stllle den sporgsmSl, den s3 vil be- 
svare. Og. mine darner og herren 
den svarer aeriigtl Testredaktio- 
nen fik ikke si meget som bare een 
enkelt modsigelse ud af denl 
SpcrgsmAlene skal dog opfylde et 
kriterium: De skal kunne besvares 
direkte med enten et Ja eller et 
Nej. Er dette krav opfyldt kan De 
se frem til utrotigt realistiske svar 
fra Commodoren. 

Christian Ravndal Jensen 
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40 
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DIM B< 1OO>iP0KE 33291 , I I 
'POKE 53280 * J I 

PRINT "(HV!D, CUt, CASH f£03. 
SPACE 1 4 > 4 h * 

PRINT * 
PRINT ■ 



[OROMht 
* 



64 



PRINT "( CRSR *C02,SPACE19>ET" 
■ PRINT *<CR8R f€D .SPACE 13 JDPOMhC - 
PROGRAM " 

fcO PRINT 'CCRSR MM ,6PACE 19 >AF ■ 

> PR INT *< CtfSR tC0*SPACE)3>CHR« 83 
/98" 

70 PRINT -(CRSR «02 , SPACE lOEFTER 0 

RG. PROGRAM AF" 
BO PRINT "CCRSR MD .SPACE 14 )T.P.G. /M 

IKRO* 

90 POKE 198,OH-MIT 199,1 
100 PRINT -<CLR,CR6R NEO % 

SPACE? >COMPUTCRCN VIL NU FREMR1N 

0 ET 8ILLE0E* 
110 PRINT ■ AF DIN HJER>C , 

SOM OEN 9AA UD OA DU ■ 

120 PR INT - SOV. L uk OJtEhC OO SLAP 

HCLT af, i-cns • 
130 PRINT " PROGRAf*CT INOKOOER O IN 

AURA . ■ 
140 PRINT -<CRSR *CD2, 

SPACE J TR YK EN TAST FOR I«JKOOIM3.- 
130 POKE 199,0'kniT 199,1 
ISO PR INT -<CLR) H 
170 FOR M-0 TO 500 
180 POKE 33291, UPOKE 33281,11 
1 SO NEKT X 



200 PRINT *<CUt,CRSR r*0, 

SPACE* )CO*WTER£N HAR NU RE0I6TRE 

RET OIN OROM" 
210 PRINT ■ FRA SIDSTE M4T. DIN VAAG 

« HJERNE KEN- * 
220 PRINT ■ OER INTET TIL OEN« OROM 

, DU SKAL NU a 
230 PRINT * FINDE FREM TIL OEN VEO E 

N DEL 6P0RGS- • 
240 PRINT * HAAL , SOM KAN BE SV ARCS M 

£0 JA CLLR r-tJ* 
250 PRINT -<CR9R NED , SPACE > STOP «0 

2S0 PRINT "CCRSR «02, 

SPACE i TRY* EN TAST NAAR DU ER KLA 
R* 

270 POKE I99,0IUAIT 189,1 
280 FOR M-63 TO S3 
ISO m* JNTi PrCv l j * i o .i * ; 
30O BCX>-A 

310 «KT X:B< 3S>-0C 7fl) 
320 PRINT *<CLR>- 

330 Z8»*"UNPUT -CCRSR PCO , SORT , 
5PAC£> lt lZ9tPRIKT "CHVIO) - 
i IF THEN END 

340 IF LCN?Z*><2 THEN PRINT *( CRSR O 
P4>"tGOT0 330 

330 IF LEFT8CZ«,2>--HV- THEN PRINT ■ 
DET VEO JEG IKKE'iOOTO 330 

3S0 B»B*i 

370 X»A5C<M!D8C2«,LENCZ«>-!,J)> 

380 IF K<83 AMD K< >32 THEN Z9-LEFTO 

2S,L£NC2*1-1)<GOTO 370 
390 IF K>93 THEN ZS-UEFT9CZ*, 

LENCZ9>-l>tGOTO 370 



-400 B9-M108C Z*,LENC Z»>-l ,1 > 

410 ON BCA8CC9S3) GOSUB 490.300,310* 

320 , 330 , 330 , 360 , 370 ,380 , 390 
420 GOTO 330 
430 R-INTCRNOCO>tlO>»l 
440 IF R<4 THEN PRINT MA, MAASKE* 
430 IF R>3 AND R<8 THEN PRINT "DE T K 

AN MAN SIGE" 
4S0 IF R>7 THEN PRINT * IKKE UMJLIOT- 
470 RETURN 
480 PRlNT'fCJ, "I 

4SO IF 8>23 THEN PRINT *ER OER IKKE 
NOCET OU HAR GLEMT 7" IB-0*RETURN 
300 PRINT -ABSOLUT IKKE - t RETURN 

PRINT *N*TURLIGV16 IKKE " t RETURN 
PRINT " IKKE 6 A AO AN * I RETURN 

IF LEFT9CZ9,7)- # VAR JEG ■ THEN PR 
INT *tCJ, OU VAR IKKE*JtGOSUB 620 
l RETURN 

IF LEFT9C2*.7 J-"VAR OCT" THEN PR 
INT **CJ, OET VAR lKK£*JiG05UB 620 
t RETURN 
350 PRINT ■ JA " (RETURN 
360 PRINT *0ET KAN MAN GOOT SIGE* 

I RE TURN 
370 PRINT 'KORREKT* I RE TURN 
390 PRINT *DCT ER WJLIGT" iRETURN 
380 IF LEFT«<Z8 / 7>>*VAR JEG ■ THEN PR 
INT * JA, OU VAR'JIQOSUS 620 
IRETURN 

600 IF LEFT#C2«,7>- fl VAR DET" THEN PR 
INT ■ JA, OCT VAR-JIOC6U9 620 

* RETURN 
610 OOTO 430 

620 PRINT ft I0HT9< Z9.LENC Z8> *7 > 1 RETURN 



310 
320 
330 



340 
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Amstrad 



Mystery Manor 



I Amstrad -spi I let Mystery Manor 
skal du styreen lille mand rundt pd 
sksermen og samie nagler for at 
komme videre. Mandens navn er 
Billy og i stedet for at hoppe. skal 
du g5 

Der er otte banerog spillet har bi- 
de en demo og high-score tiste. 

Jesper Fink Jensen 




10 9 MYSTERY MANOR 

20 Bfc-lt BORDER Oi INK O.OtPAPER OlDIM IX <2, 416) i KEY 

139, "MODE 2tPEN IjPAPER 0"*CHR*U3) 
30 ENV l,-13,200iENT -1 , 6, -3, 6r ENT -2,5,20,1,5,-20 
, 1 1 ENT -3, 20, -50, 1 1 ENT -4*3, 4, 5, 3, -4, 5i GOSUB 1230 
i GOSUB 1260 1 MODE 1 

40 RESTORE t FOR z-1 TO 5( READ hi * <s ) ! hi (z ) - (6-Z > » 10 
OOiNEXT 

50 DATA JOY-JOE, AMSTRAD, MIDI, J, CRASH, FUMLE 
60 SYMBOL 240,0, 124,60, 108,60, 188, 152, 235iSYMB0L 2 
41,255,61,61, 124, 124, 1 10, 230, 230i SYMBOL 242,0,62,6 
0, 34, 60, 61 a 25, 2S3f SYMBOL 243,233, 188, 188,62,62, 118 
, 103, 103 

70 SYMBOL 251,28,34,34,28,8,24,6,56 

80 CLStSO0iL-3tRX-240i INK 0,0tINK l,13tINK 2,6iIN 
K 3,9iBANE«UP0KE 43312, Oi PRINT i PRINT- t MYSTERY 



MANOR ft POKE 45512,1 

90 POKE 45512, UPEN 3iPAPER Oi PR I NT a PRINT TAB* 10) 41 
Af Jmmpmr Fink-Jen i^n " 

100 PEN It LOCATE 10, lOi PRINT" 1 St*rt spil" 

r LOCATE 10,12iPRINT -2 D«fflon«tr Ation" i LOCATE 

10, 14 1 PR I NT "3* . . . Hi ghacore-1 i tta" t LOCATE 10, 16:PRI 
NTM Infitruktion»r H ;GDSUB 1140 

110 a*" 1 * " t WHILE I NKEY* i WEND i IF *»*"2 M THE 

N b^na-lino-liGarO 190iELS£ IF a*-"3 M THEN 1000 EL 
SE IF wMm*4 m THEN 1030 ELSE IF AtOM" THEN 110 

120 * JOYST I CK/P I LETASTER 

130 CLBi J-liGOSUB 1140iL0CATE 12,12iPEN liPRINT"!. 

JOYST I CK" i LOCATE 12, 14iPRlNT"2 PILE TASTE 

R H i LOCATE 13,23iPRINT rt M-MUSIK ON/OFF* t PEN 3iL0CATE 
29, 25iPRINT H TRYK ENTER" 
140 A**INKEY»tLOCATE 1 1 , 2* J* lOi PR INT ■ "i IF VAL I A* 
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*>0 AND VAL(A*><3 THEN J-VAL(A») 

ISO LOCATE H t 2«J + 10iPftINT->* 

160 IF INKEYU8)=0 THEN 170 ELSE 140 

170 IF J-l THEN VX-74iHX-73iOX-72iNX-73 ELBE VX«6i 

HX-li 0%-OiNX«2 

1B0 * TE6N BANE 

190 CLSiRX-240iCX-0rT-128*0N BANE GOSUB 530,570,61 
0,650, 700, 740,760*6203 READ N«, XX, YX, MXX, MYX, MX, NIX 
,NAX.UXX t UYX 

200 PEN 2 : FOR Z-2 TO 23iL0CATE 1,Z>PRINT CHR*<250) 
i LOCATE 40, Zt PRINT CHR* (250) i NEXT 

210 LOCATE l,liPRINT STRING* (40, CHR* (250) > i LOCATE 
l,24iPRINT STRING* ( 40, CHR* < 250)) iPEN 1 1 LOCATE 21- 
INT ILENiN*) /2) , 1 iPRINT N* 

220 PEN 3iLOCATE 8,24iPRINT "Hi gh*cor«"hi ( 1 ) "*f "h 
1*(1) 

230 PEN It LOCATE 1 . 25rPRINT"LIV"l M BANE "BANE" POIN 

T"»ciLOCATE 28,25iPRINT"TID "STRING* (9, 143> 

240 FOR 2-1 TO 3 1 READ SXX ( Z ) , SYX (Z) , MIX (Z ) , MAX (21 1 

SXCZ)iNEXTtPEN liFOR Z-l TO 4 i READ KXX ( Z) , KYX( Z it L 

OCATE KXX(Z),KYX(Z)iPRINT CHR* <251 ) i NEXT 

250 PEN 2 a READ D,E, Fi IF D-0 AND E-0 THEN 260 ELSE 

LOCATE D, EiPRINT STRING* <F, CHRt (250) ) i GOTO 250 

260 READ D,E,FiIF D-0 AND E-0 THEN 270 ELSE FOR Z- 

E TO F i LOCATE D, Zi PR I NT CHR* (250) i NEXTi GOTO 260 

270 IF MO-1 THEN PEN li LOCATE 7,24iPRINT" I TRYK < 

8PAC£> FOR MENU « " t GOTO 360 

280 E 1 1 GOSUB 1440 

290 9 SPILLET 

300 AX»XX:BX»YXiXX»XX*(INKEYCVX)-0 AND XX>2)-(INKE 
Y<HX)-0 AND XX<39)iYX-YX*(INKEY(0X)-0 AND VX>3>-(! 
NKEY(NX)=0 AND YX<23) 

310 IF TEST<XX*16-S,414-(YX*16>)-2 OR TEST(XX*16-8 

,430-(YX*16> )-2 THEW XX-AXi YX-BX 

320 IF XX<AX THEN RX-240 
330 IF XX>AX THEN RX-242 
340 IF lNKEY<36)-0 THEN GX— GX 

350 PEN liLOCATE AX, BX-1 1 PRINT « " i LOCATE AX,B7.iPR 
INT" 11 1 LOCATE XX, YX-1 i PRINT CHR* (RX> I LOCATE XX, YXi 
PRINT CHR*(RX+1J 

360 PEN 1 1 FOR Z-l TO 4i IF ABS (KYX 12) -YXX2 AND ABB 
(KXX(Z)-XX)<2 THEN 460 

370 NEXT: IF A8S(XX-UXX)<2 AND ABSIYX-UYXX2 AND CX 
=5 THEN DIiGOTO 300 

3B0 CALL *BD19iF0R Z-l TO 3i LOCATE SXX ( Z * , SYX ( Z ) -1 
iPRINT" " i LOCATE SXX ( Z ) , SYX < Z ) I PRINT" H sSXX(Z)-SXX 
<Z)+SX(Z)tIF BXX(Z)-MAXfZ) OR SXX i 2 ) -MIX 1 1 > THEN S 

390 LOCATE SXX C Z >, SYX <Z ) -1 t PRINT CHR* (246) i LOCATE 
SXX<Z),SYX<Z>iPRINT CHR*C249)iIF ABS < XX-SXX C 2 ) ><2 
AND ABBCYX-SYX(Z>><2 THEN 670 

400 NEXTi NYX—MYXi MYX— HYX+MXi LOCATE MXX, NYX-1 i PRINT 
- * I LOCATE MXX,NYXiPRINT" "iIF MYX-NIX OR MYX-NA 
X THEN MX--HX 

410 PEN 3iL0CATE MXX, MYX— 1 1 PRINT CHR* (244) CHR* (245 
1 : LOCATE MXX, MYXs PRINT CHR* (246) CHR* < 247) i IF ABS (Y 
X-MYXK2 THEN IF XX-MXX OR XX-HXX+1 THEN 870 
420 T-T-0.25iPL0T T+496, 16i DRAW T*496,0,0iIF T-0 T 
HEN 870 

430 IF MO-O THEN 300 
440 GOTO 960 

450 ■ FJERN NOEGLE 

460 SC-SC+lOOiLOCATE 21,25iPRINT SCjLOCATE KXX(Z), 
KYXtZ) iPRINT 41 *'iKXX(Z> — 1»KYX(Z> — 1 1 BOUND 1,30,15, 
15,0,iiCX-CX+l* 

470 IF CX-4 THEN LOCATE UX% , UYXs CX-5; PEN 1 1 PAPER 3 
iPRINT CHR* (203) i PAPER OiSOUND 1,0,30,13,0,0,1 
480 GOTO 3B0 

490 ' NY BANE 

500 SOUND 135,0,20iBANE=BANE+l(F0R Z-T TO 1 STEP - 
ItSC-SC+lOtLOCATE 22,25lPRINT SCiPLOT Z+496,16iDRA 
W Z+496,0,0i SOUND 1 , Z t 10, 5, 15, 0,3i NEXTi FOR Z-I TO 
1 000 i NEXT 

510 IF b*n»-9 THEN 1150 ELSE 190 
520 * BANERNES DATA 

530 RESTORE 550iSYMBOL 244, 2, 7, 4, 7,6, 3,31 , 63* SYMBO 
L 245,37,245, 149, 247, 50, 226,250, 254iSYMB0L 246,63, 
119, 103, 7, 7,7, 15, 14i SYMBOL 247,254,247,243,242,114 
, 1 14, 122,58 

540 SYMBOL 248,30,60, 126,90, 126,60, 126, 255 1 SYMBOL 
249, 255, 255, 255, 255* 126, 124, 62* 31 1 SYMBOL 250,236,0 
,119,0, 238, 0, 1 19, Oi INK 2,6iINK 3,9iRETURN 



550 DATA NIGHTMARE, 2, 23, 21, 18, 1,3,20,2,23, 11,8,3, 1 
9,2,30, 12,24,36,-2,16,20,4,38,-2,3, 19,5,3,38,2,26, 
15 

560 DATA 2,21,9,14,21,14,31,21,9,4,18,17,23,18,13, 
2, 15, 19,24, 13, 11,4, 11, 17,23,8, 15,2,6, 16, 23, 4,18,0, 
0,0,20,2, 11,37,6, 18,23, 12, 16,0,0,0 

570 RESTORE 590*SYHB0L 244,0,127,255,255,228,4,31, 
62 i SYMBOL 245, O, 254, 255, 255, 39, 32, 248, 124i SYMBOL 2 
46, 121,231,222,231,249, 126, 63, 31 t SYMBOL 247, 158,23 
I, 123,231, 159,126,252,248 

580 SYMBOL 246, 62, 62, 0, 127, 42, 62, 28, 127i SYMBOL 249 

, 127, 119, 127, 119, 127,62,54, 1 19i5YMBOL 250,60,66, 15 

3, 161, 161, 153, 66, 60 1 INK 2,3tINK 3, 15i RETURN 

590 OATA THE OFFICE, 2, 3, 19, 12, -1 , 6, 18, 39, 2, 20, 3, 2, 

38,-2,10,16,6,36,2,9,23,3,39,2,39,9,39,13,12,14,2, 

21 

600 DATA 5,4,11,16,4,8,28,4,10,6,7,11,21,7,14,5,10 
, 14,21, 10, 19,8, 13, 11,21, 13, 14,5, 17, 14,21, 17,6,29, 1 
7, 9, 2, 20, 11,15, 20, 15, 32, 20,6, O, 0, O, 5, 4, 17, 16,4,7,3 
7,4,20,0,0,0 

610 RESTORE 630: SYMBOL 244,3, 15, 13, 15, 7, 2, 31, 63 t BY 
MBOL 245, 192,240, 176,240,224,64, 246, 252:SYMB0L 246 
, 127, 119, 103, 119,55, 7, 14, 30;.6YH&0L 247,254,236,230 
,238,236,224, 112, 120 

620 SYMBOL 248, 0, 170, 0, 145, 145, 74, 74, 0: SYMBOL 249, 
56, 102,207,157, 185,243, 102, 56 i SYMBOL 250,255,0,24, 
24,0,2551 INK 2,9iINK 3, 6t RETURN 

630 DATA MONKEY KON6, 2, 13, 37, 13, -1 , 3, 23, 26, 9, 20, 23 
,2,38,-2,26,4,2,36,2,34, 13,6,36,-2,39,3,39, 12,39,2 
2,27, 16 

640 DATA 4,5,16,24,5,6,32,5,5,7,10,15,24,10,13,7,1 

5,15,24,15,13,4,20,16,24,20,6,32,20,5,0,0,0,4,5,20 

,24,5,9,24, 15,20,39,5, 10,39, 15,20,0,0,0 

650 RESTORE 680 i SYMBOL 244,3,7,13,15,14,15,23,27x8 

YMBOL 245, 192,224, 176,240, 112, 240, 232, 216iSYMB0L 2 

46,29,30,23, 15, 11,7,5, 7 1 SYMBOL 247, 184, 120,248,240 

,240,224,224,224 

660 SYMBOL 248, 0,0, 28, 44, 28, 220,72, 126i SYMBOL 249, 
26,27,24, 120,72,72,79, 1 93 1 SYMBOL 250,254,0, 127,0,2 
54,0,127tINK 2,12t INK 3,11 

670 PEN 2: FDR Z-4 TO 23xL0CATE 24-Z,ZiPRINT CHR*(2 
50 > CHR* < 250): LOCATE Z+16, ZtPRINT CHR* (250) CHR* (250 
) : NEXT : RETURN 

680 DATA TUT-ANK-AMON,6,23,20,8, 1,7, 16,9, 18,20,20, 
8,22,-2,21, 16, 11,23,-2,27,20,23,33,2,22, 18, 19,8,25 
, 18,34, 19 

690 DATA 15,11,3,15,14,5,22,14,5,9,17,9,20,17,5,27 
, 18,3,6,21,26,0,0,0,22, 10, 14, 26, 14, 18, 24, 17, 21 , 0, 0 
.0 

700 RESTORE 720tSYMB0L 244,0,63,32,45,41,45,32,631 
SYMBOL 245,0,232,4, ISO, 164, 52, 4, 2S2tSYMBOL 246,63, 
0, 127,85, 106,65, 1 27 1 SYMBOL 247,252, 16,254,62, 178,9 
4,254 

710 SYMBOL 248,60, 137, 16, 189,0, 189,36, 189t SYMBOL 2 
49, 36, 169,0, 189,36, 165,36, 189t SYMBOL 250,254, 130, 1 
30, 130, 130, 130, 254 1 INK 2, lOi INK 3, 9 r RETURN 
720 DATA COMPUTER ROOM, 3, 3,36, 13, -1 , 4, 21 , 18, 7, 14, 3 
,4,38,-2, 18, 12,4,36,-2,26,23,4,38,-2, 13, 14,23, 15,3 
6, 14,39,2 

730 OATA 2,5,6,10,5,12,24,4,14,21,7,14,5,9,17,24,1 
0, 14,2, 13, 11, 16, 13,20,4, 16, 12,2,20, 11, 15, 20, 14,31, 
20,7,0,0,0,21,5,9,37,4,10,15,13,20,21,13,17,28,13, 
20,37,13,20,0,0,0 

740 RESTORE 760 1 SYMBOL 244 , 1,3, 3, 3, 7, 15,31, 63 1 SYMB 
OL 243, 192,224,206, 160, 128, 224,0, 252:SYMB0L 246,63 
,63,62,63, 123,241 ,224, 1 92 1 SYMBOL 247,244,0,0,0, 128 

,192,224,224 

750 SYMBOL 248, 0, 30, 52, 126, 240, 224, 224, 1 12i SYMBOL 
249, 124,30,7, 131, 131, 199, 126, 6O1 SYMBOL 250,255,253 
, 129,255,255, 129, 235, 235 1 INK 2,7: INK 3,9iRETURN 
760 DATA DR DRACULA, 39, 13, 18, 15,-1 ,3,23,38, 13, 16,4 
,4,36,-2, 16,23,4,36,2,34, 13,4,36,2,5,7,36,7,5, 18,3 
6,17 

770 DATA 7,5,11,20,5,16,4,10,14,20,10,15,4,15,14,2 
0, 15,3,27, 13, 11,4,20, 14,20,20, 16, 0, 0, 0, 4, 3, 10, 17,5 
, 10,37,5,20,4, 15,20, 17, 15, 17,20, 15,20,0,0,0 
780 RESTORE 800iSYMBOL 244,31,63,49,49,33,49,31,14 
t SYMBOL 245,248,252, 140, 172, 140, 140,248, 1 1 2 1 SYMBOL 
246,30, 127,202, 154, 178, 166, 164, 1 64 1 SYMBOL 247,120 
,254,83,89,77, 101,37,37 

790 SYMBOL 246, 4, 30,39, 1 27, 247, 240, 120, 1 24 1 SYMBOL 
249,62,31, 15, 199, 133,207, 126, 6O1 SYMBOL 250, 141,227 
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,83,82,90,255,255, 126: INK 0,liINK 2,9tlNK 3,7tRETU 
RN 

BOO DATA THE AGUAR IUM, 3, 1 3, 24, 13 t 1 , 3. 21 , 22, 2, 22, 4 . 
6,36,2, 10, 13,6,36,-2,20,23,6,36,-2,9,6,9, 16,26,6,2 
8,16 

BIO DATA 7,5,17,26,5,12,7,10,17,26,11,9,7,15,17,26 
, 14, 12,7,20, 17,26,20, 12,0,0,0,4,4,21,7,5, 10,7, 16,2 

0,23,6,10,23,15,17,26,5,11,26,14,20,37,5,17,0,0,0 

B20 RESTORE B40iSYMB0L 244,15,23,47,95,115,97,97,1 
13i6VrtB0L 245,240,246,252,254,206, 134, 134, 206i 6YMB 

OL 246, 126,62,23,21, 16,26, 15, 7tBYMB0L 247,126,124, 

232, 168,6, B8, 240,224 

830 SYMBOL 248, 0, 24, 24, 24, 24 , 255, 235, 24t SYMBOL 249 
,24,24,24,24,24,24, 126, 255: SYMBOL 250, 170,255, 170, 
235, 170,255, 170,253: INK 0,0: INK 2,3iINK 3, 12i RETUR 
N 

840 DATA THE END, 3, 4, 20, 10,-1 , 7,23, 13, 2, 8, 4, 2, 38, - 

2,10,12,6,38,2,22,19,20,36,-2,6,15,16,7,22,2,23,22 

850 DATA 4, 5,34, 7, 9, 12,22,9,18, 4, 13,12,23, 13, 14, 4, 

20,13,22,20,15,23,17,7,33,17,8,0,0,0,4,5,20,19,5,9 

,19,13,20,22,20,23,22,13,17,0,0,0 

660 » DOD 

670 IF HO-1 THEN 360 

880 DJiSOUND 133,0, 20, Oi L-L-l I FOR Z-l TO 200iK-RND 
«13iB0RDER Ki INK 2,KiSOUND 1 ,K» 10, 1 , 13,0, 2iN£XT: BO 
RDER Oi INK 2,6: IF L>0 THEN THX-OiGDTO 190 
890 ' GAME OVER 

900 LOCATE 15, 1 2 ! PR I NT "GAME OVER-iFDR 2-2 TO 100i6 
OUND 1,ZI3,4, 13,0,3xNEXTiWHILE INKEY*<>" " 1 WEND 
910 CLStLOCATE lO.lliPRINT USING"Du fik po 
lnt"|SCiF0R *-l TO 5: IF ac>hi(z) THEN 930 ELSE NEX 

T 

920 GOSUB U30iSDT0 60 

930 FOR q-4 TO z STEP -1 1 hi (q+1 ) -hi Cq> 1 hi * <q+l ) -hi 
•<q>iNEXT:LOCATE 8, I3i PRINT"og mr pu highacora-li 
atari **i PR I NT 1 PRINT TAB<16>" ioa nr - i 

940 LOCATE 7, 17: INPUT- Indtaat dit navn" j a*:hi (z > -a 
c»hi*(x)-LEFT*U*,7)iCLS:G0T0 80 
950 * DEMO PROGRAM 

960 IF INKEY*-" ■ THEN mo=0: b*n»*l t GOTO 80 
970 IF T>124 THEN 360 

980 bjne-hdneti : IF bana-9 THEN bana-1 

990 GOTO 190 

1 000 1 Hi ghicor a~ 1 i a t 

1010 CLSiPEN liLOCATE 13, 3iPRINT"HIGHBC0RE-L ISTE" : 
FOR Z-l TO 5t LOCATE 10, 3*Zl2iPRINT Z| HI* < Z ) 1 LOCATE 

20, 5+Z*2i PRINT US ING"*********"! HI IZ) 1 NEXT 
1020 GOSUB 1140:G0SUB 1130tOOTO 60 
1030 * Forklaring 

1040 CLS:PEN 1 1 PRINT* PRINT TA8 (14) "MYSTERY MANOR": 
PR I NT ( PR INT 1 PRINT" Billy mr pa* baaog ho* ain on 
kal,dor "tPRINT 11 bor paa at stort godo uden ior 
by*n " 

1050 PRINT" Onkalan har baf*l«t ham A L D R J 6 

■iPRINT" at gaa rundt 1 alatta pa* agan 
iPRINT" haand,man da Silly mr nyagarng, 

1060 PRINT" goar han dat ilUgivil "■ 

GOSUB 1140t008UB 1130 

1070 PR I NT 1 PR I N T 1 PR 1 NT * Han mr nu far at vild og 
mr fortabt "iPRINT" udan 01N hJaalp":PRINT:PRI 
NT" Du akal lada ham ganna* alottata 
1080 PRINT" 8 rum paa kortaat mulig tid ! 

"IPRINT" For at koauna ud af at rum m*» Billy m 
iPRINT" aaaila da firm noaglar,dar bafindar 
1090 PRINT" aig i ru*na»at . Udgangan vil ko*i«ia til 

"(PRINT" ayna naar Billy har samlet alia 
1 PRINT" noaglarna* "iGOSUB U40i60SUB 1130 
1100 PRINT1PRINT1 PRINT" Sora paa at hvart andat a 
lot mr dar "iPRINT** dmmvmmrrm ogaaa apoagalaar 

som " 

1110 PRINT" Billy i kkm maa komma i kontakt mad. 

"i PRINT" Dar mr daaudan kun at bagraanaat 
■PRINT" tidarum til at gannamfoara hvar bana " 

1120 PRINTi PRINT" HELD OG LYKKE! ": GOSUB 1140iG0S 
UB 1 130* GOTO 80 

1130 LOCATE 29,25:PEN 1 1 PRINT"TRYK ENTER" 1 WHILE IN 
KEY <1GX>0iWENDi WHILE INKEY ( 18) -Oi WEND* CLS: RETURN 

1140 PEN I 1 1 FOR 2-2 TO 24 1 LOCATE 1, at PRINT CHR*<143 

> 1 LOCATE 40,2iPRINT CHR* < 143) t NEXT t LOCATE l.ltPRIN 
T STRING* f40, 143) 1 LOCATE l,24tPRINT STRING* (40, 143 

) 1 RETURN 

1150 CLSi INK l,26iINK 2,6: INK 3,9:P0KE 45512, OtPEN 



IsPRINTiPRINT" • TIL LYKKE fiPGKE 45512, liPE 
N 3iL0CATE B,4iPRINT"DU FIK BILLY HJEM I TIDE ! * m 
1160 PEN 2iF0R Z-6 TO 1 4 1 LOCATE 34,Z:PRINT STRING* 
<6, 143>iNEXT:PEN 1 i PAPER 2iLOCATE 35, Bi PRI NT "HJEM" 
1170 PAPER OiFOR Z-12 TO 14iLOCATE 35,Z:PRINT" "1 
NEXT 1 PEN 3i LOCATE 2,15iPRINT STRING* < 38, 143) r GOSU 
8 1140 

1180 PEN HFOR Z-3 TO 33iL0CATE Z-l , 13i PRINT'* "iLO 
CATE Z-l, 14:PRINT" "iPAPER Oi IF Z-34 THEN PAPER 2 

1190 LOCATE Z,13iPRINT CHR* (242) t LOCATE Z,14:PRINT 
CHR*(243)iFOR T-l TO 1 50 > NE X T t PAPER Oi IF Z-34 THE 
N PAPER 2 

1200 NEXT it GOSUB 1220 

1210 FOR Z-l TO 1000: NEXT: LOCATE 35, SPRINT" "iLO 
CATE 35,l4iPRINT" "iGOSUB 1130: INK l,13lG0T0 900 
1220 ' FANFARE 

1230 RESTORE 1240tF0R Z-I TO 22 1 READ A,B,CiSOUND 1 
,A,C,15,I:S0UND 2,B,C,15, li SOUND 4,239 a C r 15, Is NEXT 
: RESTORE 1 RETURN 

1240 DATA 139,190,64,159,190,16,159,190,16,159,190 
, 128,130, 179,32, 159,190,32,150, 179,32, 139,190,32,1 
30, 179,32, 159, 190,64, 139, 190, 16, 139, 190, 16, 159, 190 
,32»159, 190,32,159, 190,32, 159, 190,32, 139, 190,32,13 
9, 190,32, 159, 190,32, 190,319,32, 179,284,32, 159, 190, 
128 

1250 ' THE ENTERTAINER 

1260 FOR Z-l TO 3: RESTORE 1330iF0R 0=1 TO 81 READ A 
< IXU,Z*8-B+Q>-A/ <2~<3-Z) ) 1 1% (2, Z«B-B*D) -A/ (2* (4-Z 
> > 1 NEXT t NEXT 1 FOR Z-23 TO 30 1 READ Ai IXC 1 , Z) -A/2t IX ( 
2,Z)-A:NEXT 

1270 FOR Z-31 TO 4 1 1 READ At FOR 0-0 TO 2i t* ( 1 , Z+QI3 
2) -A 1 NEXT: NEXT: FOR Z-46 TO 57: READ A: FOR 0-0 TO 2 
STEP 2iIX<l,2+Ot32>-AsNEXTiNEXT:FDR Z-7B TO 89: REA 
D Ai IXU»Z)*A:NEXT 

1280 FOR 2-127 TO 134:READ At FOR Q-0 TO 2tIX<l,Z+Q 
t8)— Ai NEXT: NEXT: FOR Z-0 TO 1 ) I X ( 1 , 1 33+8SZ ) -SO: IX ( 1 
t 136+8tZ>-89:NEXT 

1290 FOR Z-130 TO 133iREAD IX < 1 , Z) iNEXT: FOR Z-33 T 
0 41 STEP 2 1 READ Ai FOR 0-0 TO 2i IX (2, Z+QJ32) -AiNEX 
T 1 NEXT 

1300 FOR Z-43 TO 63 STEP 2: READ A: FOR Q-0 TO 2 STE 
P 2iIX(2,Z+Q«32)-AlNEXTiNEXTiFQR Z-73 TO 95 STEP 2 

iREAD Ai IX(2, Z ) -Ai NEXTiFOR Z-l 29^ TO 157 STEP 2:R£A 
D IX(2 t Z)iNEXT:F0R Z-30 TO 138: IX ( 1 , Z+I28) -IX ( 1 , Z) 

1 IX<2 t Z+l28)-IX(2,2)iNEXT 

1310 FOR Z-289 TO 352:READ A: 1 \ l r ; A: IXU , Z*64> * 
AtNEXTiFOR Z-289 TO 351 STEP 2:READ Ai IX (2, Z ) -Ai IX 
<2,Z+64)-AiNEXT 

1320 FOR Z-383 TO 415;R£AD IX( 1, Z ) iNEXT 1 FOR Z-385 

TO 415 STEP 2 1 1 READ IX (2, Z) 1 NEXT: RETURN 

1330 DATA 638,568,716,851,0,738,936,0,426,451,478, 

0,0,0,239,0 

1340 DATA 159,130,142,89,0,142,89,0,142,0,89,89,80 
,75,71,89,00,71,0,93,80,0,89 

1350 DATA 0,106,119,127,106,89,71,0,80,89,106,80,8 
9,80,71,69,80,71,0,89,93,80,0,89 

1360 DATA 716,358,568,358,536,358,506,358,478,284, 

956,758,716,358,956,738,338,368,338,638,359,506,35 

8,478,956,851,758 

1370 DATA 358,179,402,201,426,213,451,225,478,239, 
426,379,338,478,716 

1380 DATA 268,0,284,268,0,284,266,0,0,213,159,213, 
179, 139, 179,213,239,0,253,239,0,253,239,0,0, 179, 14 
2, 179, 159, 142, 159, 179 

1390 DATA 190,0,201,190,0,201,190,0,0,159,119,159, 
134, 119, 134, 139,89,89,89,0,0,0, 106, 0, 1 1 9, 0, O, 239, 2 
33,239,213,239 

1400 DATA 536,338,716,338,336,358,716,338,368,358, 
716,358,568,358,716,338,478,239,319,239,478,239,31 
9,239, 179, 179,0,301,284,0,0,0 

1410 DATA 213,225,213,159,0,179,213,225,239,179,14 
2, 119,0, 142, 179,239,213,0, 179,0, 142, 159, O, O, 1 79, O, 
0,0,89,0,0 

1420 DATA 336,536,306,306,478,478,426,426,638,638, 
478,478,358,478,716,0 
1430 ' MUSIK-RUTINE 
1440 IF GX— 1 THEN 1480 

1450 THX-THX+ltIF IXO,THX)>0 THEN SOUND 2, IXCl.TH 
X>,17, 12, 1 

1460 IF IX(2,THX>>0 THEN SOUND 4, IX (2, THX) , 1 7, 13, I 

1470 IF THX>413 THEN THX-0 

1480 AFTER 9,3 GOSUB 1440:RETURN 
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Enterprise 




Wrrom! Derersand pa banen foran 
dig. Din Idle gule racer gasser op. 
men pas pal Du skal nemlig kom- 
me helskindet igennem banen... 
Styr med det Indbyggede joystick 
og bestem sel v antal kurver og ve- 
jens bredde Inden du starter. -Pr©v 
feks. at starte med 1 5 kurver og 




100 PROGRAM -RACE" 

110 ! Jens peter winkler 

120 RANDOMIZE 

123 CLEAR FONT 

130 ENVELOPE NUMBER 1 1 1 , -34, -34 , 1 J -1 , 64 , 64 , 4 ( 2, -34 , -34 , 2 

140 SET CHARACTER 139,0,28,62,62,28,28,54,62,62 

130 SET CHARACTER 132,43,85,170,83,170,43,83,170,83 

160 TEXT 

170 SET KEY CLICK OFF 

180 INPUT PROMPT "Hvor bred skal banen v»re (max 338) ":SV 

190 INPUT PROMPT "Hvor mange kntfk skal der vffre pa banen "SKK 

200 NUMERIC TEG t 1 TO KK) 

210 LET LL*ABS (6060/KK) :LET FF=ABS (KK/2) 

220 CALL VIDEO 

230 DEF VIDEO 

240 SET VIDEO MODE 5 

230 SET VIDEO COLOUR 1 

260 SET VIDEO Y 171 

270 SET VIDEO X 25 
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280 open itioi: "vid«o: " 

290 SET PALETTE BLACK , 80, RED, YELLOW 

300 DISPLAY #10l:AT 1 FROM 1 TO 10 

310 END DEF 

320 DEF ARR 

330 FOR Q=l TO KK 

340 LET TEG(Q)=RND<450>+10 

350 NEXT 

360 END DEF 

370 DEF GRA 

380 LET DF,DG,DS-0 

390 FOR JJ-1 TO KK 

400 SET N10l:lNK 1 : PLOT #101 : TEG < J J ) , DF S : LET DF-DF+LL 

410 NEXT 

420 PLOT #101:0,6060 

430 PLOT #101: 10, 100, PAINT 

440 FOR SS-1 TO KK 

450 PLOT #10i:TEG(SS)+SV,DGi 

460 LET DG=DG+LL 

470 NEXT 

480 PLOT #101:799,6060 

490 PLOT #101:700, 100, PAINT 

500 ! 

510 SET #101: BEAM OFF 
520 FOR Y-ll TO 171 

530 DISPLAY #10i:AT 1 FROM Y-10 TO Y 

540 NEXT 

530 END DEF 

560 CALL ARR 

570 CALL GRA 

380 CALL START 

590 LET A-30:LET RR-TEG ( 1 ) *40: LET HH-0 

600 CALL SPIL 

610 CALL SLUT 

620 DEF SPIL 

630 SET KEY DELAY 10 

640 FOR T=171 TO 11 STEP-. 999 

650 DISPLAY #101: AT 1 FROM T-10 TO T 

660 SET #101 : INK 3 

670 PLOT #10l:RR,A, :PRINT #101 : CHR« < 139) 

680 LET A»=INKEY« 

690 LET A=A*36 

700 IF J0Y(0)*1 THEN LET RR=RR+13 

710 IF J0Y<0)=2 THEN LET RR=RR-13 

720 LOOK AT RR,A:0P 

730 LOOK AT RR+64,A:0G 

740 IF OP OR OGOO THEN CALL SAMMENSTOOD 

750 ! 

760 NEXT 

770 CALL KLARET 

780 CALL SCROOL 

790 END DEF 

800 DEF START 

810 PRINT AT 17,10:"Tryk pa s " 
820 DO 

830 LOOP UNTIL INKEY«-"»- 
840 END DEF 
850 DEF SCROOL 
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860 FOR C-ll TO 171 STEP 1 

870 DISPLAY MIOlSAT 1 FROM C-10 TO C 

880 NEXT 

890 PING 

900 FOR V-171 TO II STEP- . 3 

910 DISPLAY ttlOl : AT 1 FROM V-10 TO V 

920 NEXT 

930 END DEF 

940 DEF SLUT 

930 SET KEY DELAY 30 

960 PRINT "DU k0rt» pa «n ban*, der var ■ SV • bred." 

970 PRINT "Og d*r var ■ KK ■ knffk pa d»n" 

980 PRINT -Vll du se spi I let ig*n<j/n)"I 

990 INPUT A* 

1000 IF UCASE«(A«)-"J- THEN CALL SCROOL 

1010 IF UCASE»(A»)="N- THEN GOTO 1040 

1020 IF A»<>"J- AND A»<>"n" THEN 980 

1030 ! 

1040 PRINT "Vil du pr0ve igen <j/n>"| 

1050 INPUT S« 

1060 IF S»-"j- OR S»-"J" THEN 

1070 PRINT -1) Pa den gamle ban*' 

1080 PRINT 

1090 PRINT -2> Pa en ny ban*" 

1100 INPUT NM» 

1110 LET PL*VAL(NMS> 

1120 SELECT CASE PL 

1130 CASE 1 

1140 TEXT : CALL VIDEO: GOTO 370 

1130 DISPLAY ttlOUAT 1 FROM 1 TO 10:G0T0 570 

1160 CASE 2 

1170 RUN 

1180 CASE ELSE 

1190 GOTO 1040 

1200 END SELECT 

1210 ELSE 

1220 GOTO 1250 

1230 END IF 

1240 END DEF 

1250 END 

1260 DEF SAMMENSTOOD 

1270 SOUND PITCH l.DURATION 7, ENVELOPE 1 

1280 SOUND PITCH 3, DURATION 7, ENVELOPE 1 , SOURCE 3 

1290 OUT 133,23:0UT 133,45 

1300 LET HH-HH+1 

1310 IF HH>-5 THEN 

1320 SET INK 2:PL0T RR-64 , A-32: PRINT H101 : CHR» < 152) ; CHR» < 152 > S CHR» ( 152 ) 

1330 PRINT -Din bll brad unmen' 

1340 CALL SLUT 

1350 ELSE 

1360 SOUND PITCH 12, DURATION 4,S0URCE 1 

1370 END IF 

1380 END DEF 

1390 DEF KLARET 

1400 SET INK 3 

1410 PLOT 30,6100:PRINT ttlOl:* TILYKKE DU KLAREDE BANEN* 

1420 END DEF 
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Klg to gange p3 det her program! 
Det er nemlig bedst nSr man erto, 
der spiller. S5 find din ven (eller 
veninde). og hlv din Speetmm tnd I 
stikket "Duel* er ganske slmpelt: 
Vinderen er den. der fylder den an- 
den med bly. 

Den ene spiller bruger Kempston- 
)oystick. den anden cursortaster- 
ne samt nuL som er 'gtv lld-tas- 
ten\ 

Her er et rapt lllle spil. hvls to- 
mands kamp er nogetdder fanger 
dig, 

Thomas Duelund 



1? 2£: 



TO 



1a let si«a 

13 LET S2-0 

1* let y«i 

15 LET x-20 

16 LET q*l9 

17 LET u«3 
16 LET P*m" 
19 LET G|=" 

oe dim Aita 



4ft LET fi* t: 

lij 

50^ET At<- 

55 LET Aft! 

60 LET A»U 

70 LET At<* 

76 LET ASM 

69 LET -* 

55 LET R$C 

M LET MUI 

95 LET At (IS 

^6 LET A$l 

195 LET A«U4 

116 LET AtUI 

115 LET A|(l< 

126 LET At <1* 

136 LET At (14 

jjj 36 LET A« t 



Spe€trum 



Duel! 




TS^^GF^WS^TO 1 5TEP -1 

1065 PRINT AT n*!; INK 



1690 NEXT n 
1110 PRINT ac. 
- D U E L • 



4j Af (n> 
C 0 U 6 0 Y 



1120 PRINT AT 0,2;"5PILLEA 3:";t 

2.AT 6-19; "6PILLER 1 a * H j 6 1 

li30 PRINT AT 6,6. IKK ft; (IT 
0,31, INK l; 

IF IN 31*1 THEN 00 5U6 3300 

t 00 TO 2056 

3605 IF IN 31-2 THEN 00 5UB 3106 

CO TO 3635 

2010 IP IN 31-5 THEN 00 3UB 3800 

00 TO 2025 

3615 IF IN 31-4 THEN 00 SUB 3306 

00 TO 2026 

2036 If IN 31-16 THEN OO SUB 380 



2625 IF INKEY 1***6" THEN 00 5UB 

460: 00 TO 26£e 

2630 IF INKEYt*"6" THEN 00 5uB 

500: 00 TO 2650 

2035 IF INKEY*-"7" THEN 00 SUB 

60)0 00 TO 2050 

3046 IF !NKEYt*"6" THEN 00 SU6 

700 GO TO 2050 

2045 IF INKEYt* M 6" THEN 00 5U6 



INK 5,Gt 
INK l,Pt 



2050 PRINT AT q,»; 

2055 PRINT AT uj; 

2099 00 TO 200fi 

3000 PRINT AT *i,X' t " 

3065 let Ft*"*r 

3010 IF Atfy, 

3099 RETURN 

3100 PRINT AT «,x; 11 
3165 LET Ft**'* 
3110 IF AlNiK-D *" 
-X-l 

3199 RETURN 

3260 PRINT AT V <X j " 

3510 IF Af I y - : . * ■ ■ " 

3299 RETURN 

3300 PRINT AT g .X; " 



THCN LET X 



THEN LET X 



THEN LET ¥ 



3460 PRINT AT q,**;* 4 
3405 LET Oli'T 
3410 IF At ■ " 

■6+1 

3499 RETURN 

PRINT AT 4.v; M 



THEN LET 



THEN LET m 



THEN LET « 



THCH LET * 



THEN LET q 



505 LET Ot*"» M 
3610 IF At tq,tr-l) * m 

3599 RETURN 

3600 PRINT AT 
3610 IF Atl-Wi*)*" 
-S-l 

3699 RETURN 

3760 PAINT AT q,¥' " 

3710 IF R0<qtl,«> ■ " 

5?99 RETURN 

3660 IF PA*"ft" THEN 00 3U6 4060 

ffiTCfc"*" ™ EN co 5UB * l " 

3900 IF Of-***" THEN 00 SUB 4200 

4000 PRINT AT INK 1; Ft* AT q 

t m; INK 5; Of 

4016 IF A|(W,Xtll*" " THEN BEEP 
.009,9. 00 TO 4036 
4015 00 TO 2030 

4020 FOR 1*1 TO 36 IF At<U,X + l) 
1 THEN 00 TO 4635 



4021 CO TO 3060 
4626 PRINT AT 



"™: TOR 4-6 



i t % i i ryii * 

TO 1: NEXT |i PRINT AT ¥,X*t; 
00 5U6 4656: NEXT \ 
4060 IF yjq AND x+lau THEN PRINT 



F Ik HAn h 



GO TO 4< 



4065 RETURN 

4060 PRINT AT 0,2i"SPlLLER 2:";* 

3 t AT 0, 19; 5PILLER l:";tl 

4670 IF ft 1*3 THEN 00 TO 7000 

4960 FOR t-0 TO 166: NEXT « 

4699 CL5 I 00 TO 14 

4100 PRINT AT sj-x; INK 1; Ft; AT q 
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.IN.*: H W ™ CH " CP 

00 to crec 

FOP tm% TO 3fl: IF At(«,X-t> 
• " " THEN 00 TO 4125 * 

4i2i go to 200Q 

*I25 PGIHT AT SKX-t;"-": FOR »•* 
TO It NEXT ftj PAINT AT ¥,X-l;" 
00 5U0 4150: NEXT I 
±15* IF y»q AND X-t"¥ THEN PRINT 
9**1 ft- LET S1"S1+1; PRINT 



QT 
RT 1 



OU FIK HCIH 



O TO 416 



' H 3PILLEP 2: 



4155 RETURN 
4iee PRINT AT 
2-» T ft,19 t "9PXLLER I*."!*! 

4i?e if si-3 then oo to 7* 
4l?(? FOR no to ieo. NEXT * 
4«9 CL5 : 00 TO 14 
420fc PRINT RT ViXj INK l;F«;flT 
,u: INK 5,Gt 

421© IF flf(g ( i*#l)«" " THEN DEEP 
.009,9: GO TO 4220 
4115 00 TO 2000 

*55§ FOR t«l TO 30: IF At<«i,v + lt 

■ - ** THEN GO TO 4225 
4221 GO TO 2000 

4225 PRINT RT q,w+t;" — : FOR t-0 
TO 1: NEXT ft: PRINT RT q,*4t;" 

"r CO SUB 4250' NEXT I 

4^50 IF q«y AND m*\nX THEN PRINT 
RT y.niTi LET PRINT 

gT ll,ll; ff DU FIK MAH ,t : 00 TO 426 

4 255 RETURN 

PRINT RT ©,2,~5PILLER 2:";| 
ft , 19, SPlLLtP E*I*I 
IF sfcO TNEN 00 TO 7000 
4300 FOR 4>0 TO 100 NEXT ft 
4299 CL5 I 00 TO 14 

INK I 5 T Q flT INK 1;F4;ftT * 

IF RitQ.wl)*" - THEN BEEP 
.9: 00 TO 4320 
4315 GO TO 2000 

4320 FOR E») TO 30: IF At<<UV<U 

■ ^ THEN GO TO 4325 

4321 GO TO 2000 

4325 PRINT RT *,n-t;"-" 
TO 1: NEXT ft: PRINT RT 
": GO SUB 4350: NEXT I 
435i? IF q«y RND *-t"X THEN PRINT 
RT V*Xi I : LCT S2»»2*l- PRINT 
Li,li.*DU FIK HflM": 00 TO 435 



4 260 

2; RT 

299 
4300 



FOR *»< 



or 



4355 
4 3^0 

2. OT 
4^70 

4300 
4399 

7020 
7*30 

^035 00 TO 
7040 INPUT 



RETURN 

PRINT RT 0,2; "3PILLER 2;* 
0,19; kt 5PILLER I: 
IF »20 THEN GO Tfi 7000 
FOR ft-0 TO 100: NEXT ft 
CLS 00 TO 14 
FOR ft«0 TO 100 NEXT ft 
INPUT *'VIL DU PROUE IOEN 

Nf; IF Nf.-J" THEN CO '0 



li s w HwZJ then 

~fl45 00 TO 11 



9999 
IN3TRUKTI0N 
00 TO 



(J/N "jh 

9500 



NEXT 
DRTR 



ORTR 
ORTR 



9000 
9005 
301£ 
9020 
66 

9030 
9£4£ 
66 

9060 
230* 

9070 

90e0 ORTR 
4, 192*0 
9090 DflTB 
126 

9100 ORTp 

9110 DRTR 



U3R "L"*7 



FOR ft>U5R "ft* 
RERO b POKE 

24,24.59192,162.36,30, 



1 TO 



0.0,21,0,0,0,0*0 
24.24.220.56,25.36.36. 



DRTR ft , : , 3 . - r 7 , 103 M 103 . 103 
ORTR 0,126.192*230.230.230, 

DATA 103. 127.63,7,7,7.3,0 

252 , 254 , 224 , i 24 > £ 24 , 22 

24.24,126,24.24.24.60, 

0.6, 12 ,254,254 ,18,0 -0 
0.15,40.127.127.45.16. 



9120 ORTR 0,24.60,126,24,24,24,2 
9130 ORTR 24.24.24,24,126.60*24. 



C 0 U 6 
RF: Th 
INS 



9500 CL5 

9505 PPINT RT 1,0,;** - — 

OY-OUEL--* 0 
9310 PRINT RT 3,0;"* 
0**1 OutWnd -- — *" 

9515 PRINT RT 5,0; ''ft 

TRUKTION W* 

9520 PRINT RT 7.1; "OU 00 OIN UEN 

Efl TO C0U50VDER OER SfcftL FQP5 
OGE RT 5KYDE ** 

9525 pqint rt 9. l; "hinrndcn huep 

KAN EFTER DC ER ELEVEN 5KU0T 
KOMME TO GRNGC" 

9530 PRINT RT 1 1 , 1 ; "T ILBRGE TIL 
LIUET IOEN HEN UEO 5KU0 NR 3 ER 
OET 5LUT." 

9535 PRINT RT 14,1; **p» HUI5 EN 3 
PILLER SKYDER 5 PR KRN MRN I 

KKE FLYTTE 510." 

9540 PRINT RT 17.0; M * ------- — 

5TYRINC 

9546 PRINT RT 19 . 0 , " 5P ILLCR 2:KE 
MP5T0N (PORT 31) rt 

9550 PRINT RT 21 . 0; " 5PILLER 1:PI 
LtTRSTEPNE 4 * t * 

9355 P»XHT Bir* " TR3T EN TR5T 

TIL 5TRRT — fr 
9560 PRU5E 0 
9565 GO TO 11 
9990 SRUE 'COUOOYOUEL" 




Spacebrain 
special 



Du kenderutvlvlsomt Mastermind 
filter, og her har du s5 Spectrum- 
versionen af det Computeren 
tsenker p& en komblnation pd 4 ud 
af 6 multge farver, som du skal 
gsptte. Etter hverr af dine gset 
"KEtter" ma^(inen en son *pind" 
for hwr farve. der b3de er rigtig og 
korrekt placeret. Den setter en 
hvid *pind\ hvis farven er ngtig. 
men placenngen er forfcerL 
For at indtaste g£ettet, skal du 
sknve farvens nummer og trykke 
enter etter hver farve. God tanke- 
|yst 

Stefan Gunnarsson 




(RND#6J +a 
(RMDftfr> +1 

THEN GO TO aO 
C RND 16) *1 

OR a 13> »* I3J 1 



? GO &U& 

2© LCT 2 f ly »INT 
LET A t2> -IHT 
3S IF » 12) -ft CI) 
30 LET 4 131 -INT 
r? XF * 133 11* 
HCH GO TO 

4© LET 0 *INT 

45 IF A t4> •* til 

n a i 4 ( : v then oo 

50 POKe 23602.-1 

5S PRINT AT INK 1 ; "fl" : I 

nk 2;^n*': INK Ov^fl 1 *; IW *^ ; 
INK 4 ft"; INK INK 2; PftP 

©; FLrtSM 1^ - SUPt'RHlNO *v *^ 

LPSM O; PAPER 7; INK li "ft*-; INK 



TMCN PRINT 
/ c3 THCN PR1HT RT 
f=A THEN PRINT AT 



21, 15; 

21, 15; 

frl. 15.. 



CAND##f *2 
OR 0 (4> *0 
TO 40 



(2) O 



2; "ft 4 



ink a; "fl 



INK 



« ^ INK 3; "ft"; 

6; "ft * INK fe;"ft" 

■50 LET C =C +1 

(M PRINT ' *TftB 3; "GUC55 NO.^JC 

7e INPUT blfi) 
^5 NEXT « 



76 LET bfl 
cInt b (a) ; L 
T b(*> -INT b 
1) }£ Oft b «2) 
<1 Oft b(3) >S 
THEN DEEP - 
EP .1,30 OO 
79 IF b(l> 



R b 1 1) 
■ bU) OR b(3 
DEEP . Ij 

O C5 

OO PRINT I 

NK b<2);TftB 
"ft"; INK b 
9© IF all) 
RND a 131 cb (3 
PRINT RT 21 
21., 23; 
O* LET F =0 

no if ad) 

IF A f2l 

IF 1 I 3* 

IF d (4-> 

if r »i 



) -INT b ( 1 ) l LET b f 2> 
ET b(3)-INT b«3J: LE 
14) : IF b(l) <1 Oft bt 
f.1 Oft b(2)jE OR b<3J 
OR bU) <1 Oft b (aj 16 
1,4©: OEEP - t+ 15: BE 

TO 65 
- b (2 J OR b 1 1J »b (3 J O 
OR b 121 =b 13) Oft b 12* 
j -b 44> TMEN BEEP . 1^ 
15; DEEP .1,30: OO T 



NK b C 1 ) ; TAB 5; "ft"; X 
7, "ft" ; INK b (3J ; TRE 
C4) ;t«d li; "ft** 
-bfl) RND a (2 J =b iZt 
> ftND a 14> sb (<t) THEN 
^ 15; "BBB8"; INK 2; RT 
GO TO 1(?©0 



12S 
130 
149 
JT5» 



»bClJ THEN 

>b(2) THEN 

«b(3) THEN 

>b(4) THEN 

THEN PRINT 



LET f = r * L 
LET f * f 
LET l«f*i 
LET fsr+1 
RT 21,15; 



151 IF 

152 IF 

153 IF 
"BEBB" 

155 LET 

IF a fli Oft ailJ--bl2> O 

ft a tU =b(3) Oft All* <bU* THEN LE 
T 4*9 + 1 

170 IF af2J*b<U Oft a<2)>b (S> O 
ft =bi33 Oft lf2**bU) THEN LC 

T ?*9*1 

160 IF a«3)*b<l> OR a(3)=bf2J O 
ft af3J«b<3> OP ai3)=bli.i TMEN LE 
T ■)'.*•: 

1?0 IF a (4J sb(l) OR aC*J«bC2> O 

ft af4jvbf3> Oft a(4j Bbui then le 
t 9*p*a 

a'*© IF p-1 THEN PRINT 
^1 rf 23; "D T * 

201 IF 9i2 THCN PRINT 
21 ,23, "dS" 

2fc2 IF 9-3 THEN PRINT 
21/23; "BOB" 

£03 IF 9*4 THEN PRINT 
21,23. "BBe©" 

210 GO to 

220 STOP 
!|N FOR w=l TO 50 
1010 BEEP . Odd , m , BEtP 
1020 NEXT W 

1S00 INPLTT M Pf€31 ENTER 

again"; line »i 

1510 CL5 ; CO TO 5 

B000 BORDER 7: PAPER 7: INK 0: C 

LB 

30C5 RRMDOMIZE 

?O10 Din a f4j . DIM bUJ . LET C -0 

S100 RETURN 

9000 RESTORE 

9005 FOR • »U»R "a" TO U5R " b" +7 

9010 RERD u;tr . POKE a.uier 

9020 NEXT a: RETURN 

9030 DRTR 50*125^255.255.255.255 
* 125 ., 60 

3040 DftTft 24/ 50/ 125, 125,24^24/24 
t 24 



INK 2; RT 

INK 2.: ftT 

INK a.: ftT 

INK 2; AT 

to p Lay 
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Spectrum 

Oil-check 



9 



OT«S KU/t» i 1303 

laaos Ku/h i iQB* 

119*9 KU/h 1 1985 




Med dette program. Kan du fa 
overbtik over dit forbrug af olie. el. 
naturgas eller lignende, 
Programmet er til Spectrum og 
kan anvendes til 48 K verslonen. 
Du skal folge vejlednlngen I pro- 
grammet og resultatet kan sa op- 
deles i enten sfljler eller kurve- 



dlag rammer. 

ForDruget opdeles i halve mane- 
der. og hvert staermbillede kan 
opdeles f 3 diagrammed AJle dia- 
grammer er forskudt og kurve- 
starten er tllpasset Sret far/neu- 
tral. 

Carl Chr. Madsen 



2 RErt danske bogstaver 

C48K udg. 1 

4 FOR 1=65496 TO 65535 
6 READ d 
8 POKE i , d 
10 NEXT I 

12 DATA 0,126,144,144,252,144,158,0 
14 DATA 0,0,60,10,62,72,62,0 
16 DATA 0,0,60,76,84,100,120,0 
18 DATA 24,0,60,66,126,66,66,0 
20 DATA 24,0,60,2,62,66,62,0 
30 REM tastaturk Ilk 
32 POKE 23609,70 

100 RED ouers i gtsb i I led 

101 REM 
105 CLS 

110 PRINT ■ Forbrug" 
115 PRINT Opdater in9 1 

120 PRINT "• trsforbrug 2" 

122 PRINT |M Uejlednin9 3" 

123 PRINT Indspilning kass...4" 

124 PRINT "' Indspilning nicro..5" 

125 LET u=0 

126 LET t=1983: REPI dit Isrsle ur 
128 LET aar=0 
130 LET total»0 
132 LET b=0 
135 RESTORE t 
140 LET t I Ip=7 

150 PRINT Klj" "; FLASH lj n "J FLASH 
0;" Tasl det snskede" 



151 LET 

152 IF 
154 IF 1 

156 LET 

157 IF 

159 CLS 

160 IF 
162 IF 

164 IF 

165 IF 

166 IF 
500 REff 
505 PR I 

gram ■ 1 
510 PRI 

= 2" 
515 PRI 

= 3" 
530 PRI 
SH 0J" T 
540 IF 
542 IF 

544 LET 

545 LET 
550 IF 
555 IF 

990 LET 

991 LET 

992 RES 
995 CLS 

1000 REn 

1010 PRI 
"3' *2" 



r etur =100 
JNKEY*<>"" THEN GO TO 152 
7NKEY*=" " THEN GO TO 154 

l=UAL INKET* 
i <0 OR i>5 THEN GO TO 6500 

i=l THEN LIST 1900 



i=2 
1-3 
1=4 

r«5 

NT 
NT 
NT 



NT tt 

ASt 

INKE 
INKE 
kva 
ret 
kval 
kval 
b=0 
u=0 
TORE 



THEN 
THEN 
THEN 
THEN 

lg . 

j i » i 



GO 
GO 
GO 
GO 
kurv 



TO 500 
TO 7000 
TO 8900 
TO 9000 
ell. ssj 
Ssjle- 



le 
og 



kurved i a 



;" Kurued iagram. , . 

; " Ss J led i agr am. . . 

1 ;" " ; FLASH 1 

det snskede" 

Y»<>"" THEN GO TO 540 

Y* = "" THEN GO TO 542 

l9=UAL INKEY* 

ur=530 

9>3 THEN GO TO 6500 
g<l THEN GO TO 6500 



it • 



FLA 



bi I ledopbygn ;ng 
NT "ku/h *100"» '9 
1 



0 



J J 



J i S J I 
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GO TO 1121 
STEP 10 



1020 LET h=14: GO SUB 2000 
1025 l_£T h=92: GO SUB 2000 
1030 PRINT AT 21,2;"j";AT 21,10;"* 
1 » 17 ; " j " ;AT 21 , 25 ; "o - ;AT 21,30;"d" 
1040 PLOT 10,15 
1045 DRAW 240,0 
1050 REP1 ssjtediagram 
1055 IF kualg=2 THEN 
1080 FOR q=20 TO 255 
1090 PLOT q+u, 15 
1100 READ f 
1110 DRAW 0, Ut i lp 

1120 NEXT q 

1 121 REH kuroed i agram 
1125 IF kwal9=3 THEN 
1128 GO SUB 6000 
1130 RESTORE t 

1135 FOR q=10 TO 244 STEP 10 
1140 READ ( 
1145 LET f-tf-'il I p 3 
1150 PLOT qtu,w+15 
1 155 DRAW 10, f-v 
LET w=l 
NEXT q 
GO SUB 2500 
LET aar=t 
INPUT 'Tlertu 



; AT 2 



GO TO 1 1 90 



1160 
1165 
1 190 
1205 
1210 
t 

1220 
1222 
1225 
1228 
1230 
0 

1215 
1250 
1252 
1260 
1500 
1501 
1505 
1507 
1510 
1520 
1525 
1530 
1600 
1900 



= 0 - Nyt ur? skriu 



LET b=b + l 

IF 1=0 THEN GO TO 
IF b>2 THEN GO TO 
LET retur=]200 
IF K1983 OR t>1985 



100 
990 

THEN GO TO 650 



IF t=l983 THEN RESTORE 1983 
IF t=1984 THEN RESTORE 1984 
IF t=1985 THEN RESTORE 1985 
LET u»u+1.5i GO TO 1050 
STOP 

GO SUB 6000 
READ ( 

LET (=[|/t i Ip5 
PLOT q+u,w+15 
DRAW 10, f-u 
LET u=1 
NEXT q 
RETURN 

REH lorferugsop lysn inge^ne #*l 
in ienummer = urstal 

1983 DATA 525.653,647,581,600,500,450,31 
0,272, 199,92,67,20,20,70,72, 158, 170,250, 
370,480,630,720,750 



1984 DATA 974,836,950,800,900,450,250,12 
5, 20, 0 , 35 , 85 , 1 20, 270 , 4 1 0, 508 , 593, 611, 630 
,714,728,751,740,793 

1985 DATA 875,800,810,744,700,669,611,62 
4,587,403, 145,20, 18,22,22.34,345,456,516 
,578,647,708, 788,827 



1999 
2000 
2010 
2020 
2030 
2040 
2200 
2210 
2220 
2230 
2240 
2250 
2290 
2500 
2510 
2515 
2530 
2535 
2540 
2545 
2548 
2550 

2560 
6000 
6010 
6012 
6015 
6017 
6020 
6030 
6040 
6050 
6070 
6100 
61 10 




STOP 
FOR q=20 
PLOT q,h 
DRAW 10, 
NEXT q 
RE" RETURN 
REH mdr.inddeiing 
FOR q-10 TO 255 STEP 
PLOT q,2 
DRAW 0, 10 
NEXT q 
RETURN 
STOP 

REn u r s (orb r . 
LET totaL=0 
RESTORE I 
FOR q^l TO 24 
READ h 

LET total=total*h 
NEXT q 

LET v$=STR$ total 

PRINT AT 0*b , 20-LEN ^$;tota 

t 

RETURN 

RE^ startkuroet i Ipasn i r>9 
IF aar=0 THEN GO TO 6100 




KW/h 



IF l>aar THEN 
JF t<aar THEN 
IF t=aar THEN 
FOR q=l TO 24 
READ ^ 
NEXT q 

LET Y=w**t ; lp 
RETURN 
REn kurve 
RESTORE t 



RESTORE Ct-1) 



GO 
GO 



TO 
TO 



6100 
6100 



neutral pos. 
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6120 READ u 

6!30 LET y«v/t i lp 

6150 RETURN 

6500 RED lej Itastn ingsprocdure 

6510 PRINT Ml; BRIGHT 1;" lejltastning 

prsy I 9 en" 
6520 PAUSE 120 
6525 LET b=b-l 
6530 GO TO Tetur 
7000 REn ve j ledn ing 

7010 PRINT ;"Ou skat skTive dlt forbru9 
(24 tal pr , ur } ind i en DAfAsrtn ir»9med 

samme (inienr. som uret." 
7020 PRINT '"Tallene t i Iposses ved at rn 
dre I Mnie 140" 

7030 PRINT '"Enheden CKM'hjl. m^3)skal r 
ndres i linierne 1010 09 2550" 
7035 PRINT '"Huis du bruger andre urstal 
end 1983,1984,1985 skal du tilfsje dis 
se i I in ie 1230" 



7037 PRINT "Du skal endvidere tilfsje en 
linie efter linie 1 252 mage t ; I , men 
med det aktuelle urstal" 
7050 PRINT *tl;"rtenu - tryk P u en tast" 
7090 PAUSE 0 
7095 GO TO 100 

8900 REM indsp<lnin9 kassette 

8910 CLS : PRINT """ HUSK AT TAGE ' EA 

R'-STIKKET UD" 

8920 SAUE "forbrug" LINE 1 1 CLS : PRINT 

"Husk UERIFY tryk pu en tast nur du er k 

lar": PRINT "I'Du har husket at srtte ' 

EAR' - stikket ; ?" : PAUSE 0 

8930 UERIFY "forbrug": CLS : PRINT "ALT 

OK" 

8940 PAUSE 300 
8950 GO TO 100 

9000 ERASE "m" ; 1 i" forbrug" : SAUE *"m";l; 

forbrug" LINE 1: OERIFY *"m" ; 1 ; " forbru9 
"! PRINT "alt OK": PflUSE 00: GO TO 100 
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CHALLENGE. 



Amsfrad 



Superformat 



Na> du pk en Amstrad skal forrnat- 
tere en diskette, skal det normalt 
gores fra CP/M. Det er besvterligt. 
for s5 skal du jo forst Doote og alt 
detQavs. 

Her er et program, der lader dig 
g«re det hele fra BASIC. N&r du 
starter programmet. sparger 
computeren fetrst om hvilket for- 
mat, din nye diskette skal have 
(System. Data eller IBM). Derefter 
sparger den om hviiket drev, der 
skalanvendesd eller2).0gsdbli- 
ver disketten ellers formatteret 

Keld Hansen 




10 MODE 2iWIND0W I, SO, 15. 23i WINDOW "1.1. 
80, 1, IiWINDOW #2, 1,80,2,24 

20 PEN #1,0: PAPER (* 1 , 1 1 BORDER 12lCLS till 
X=30 

30 PRINT #1 , SPACE* (35) ; "FORMAT 

(C> KELD HANSEN 1986" 
40 MEMORY 5-7FFF: SOSUB IOOOO 



50 LOCATE #2,X,3lPRINT #2,"1. AMSTRAD FO 

RMAT " 

60 LOCATE #2,X,5tPRINT #2, u 2. DATA FORMA 

T" 

70 LOCATE #2,X,7«PR1NT #2, "3. IBM FORMAT 

80 LOCATE «2,X, lit PRINT #2, "HVILKET FORM 
AT ONSKER DU ? " 

90 A»-INKEY*lIF A*»"" THEN 90 ELSE IF A* 
<>"1" AND A*0"2" AND A*<> M 3" THEN 90 
100 F0RMAT»ASC(A»)-49iCLS #2 
110 LOCATE #2,X,3lPRINT #2,"1. DRIVE A" 
120 LOCATE #2,X,5iPRJNT »2, "2. DRIVE B" 
130 LOCATE tt2,X,9:PRINT #2,"HVILKET DRIV 
E ONSKER DU ? " 

140 A*=INKEY*iIF A*""" THEN 140 ELSE IF 
A*<>" 1" AND A«<>"2" THEN 140 

150 DRIVE=ASC(A»)-49iCLS *2t DRI VE*-CHR* < 
DRIVE +63) 

160 LOCATE #2, 15, IOiPRINT #2,"IND8AET DI 
SC I DRIVE "t DRIVE*;" 08 TRYK PAA EN TAB 

T" 

170 A*»lNkEY*iIF A* = "" THEN 170 ELSE POK 
E 48090, DRI VEi POKE 1.8094 , FORMAT 

180 CLS #2iL0CATE M2, 30, IOiPRINT #2,"» 
F0RMATERIN6 <<" 

190 IF FORMAT-O THEN FORMAT*-" AMSTRAD 
FORMAT " 

200 IF FORMAT 1 * 1 THEN FORMAT*-" DATA F 

ORMAT" 

210 IF FORMAT-2 THEN FORMAT*™" IBM FO 

RMAT" 

220 LOCATE tt2, 30, 12i PRINT W2, FORMAT* t CAL 

L &8000:CLS *2 

230 LOCATE #2, X , 3i PRINT #2, "ONSKER DU AT 

FORMATERE EN DISC MERE (J/N) 7 " 
240 A*-INKEY*iIF A*-"" THEN 240 ELSE A*- 
UPPER* (A*) 

250 IF A*-" J" THEN CLS #2: GOTO 160 
260 IF A*-"N" THEN END ELSE 240 
1000 DATA 3 A, 94, BO, FE, 2, 28, IE, FE, 1 , 26, D, 
3E, 9, 32, 93, 80, 21, 97, 80, 22, 95, 80, 18, IB 
1010 DATA 3E, 9, 32, 93, 80, 21, AO, 80, 22, 95, 8 
0, 18, B, 3E, B, 32, 93. 80, 21, A9, 80, 22, 95, 80 
1020 DATA ED, 5B, 95, 80, 1 A, 32, 92, 80, DF, 8D, 
80, 3A, 93, 80, 47, 21, Bl, 80, ED, SB, 95, 80, 3E 
1030 DATA 0. 77,23,77,23, 1A, 77,23, 13, 3E.2 
,77,23, 10,FO,3E,0,32,91,80,3A,91,BO,S7 
1040 DATA 3A t 90,80,5F,3A,92,B0,4F,2l,Bl, 
80,DF,8A,80,3A,91,80,FE,27,C8,3C,32,91 
1050 DATA 80,21,B1,B0,3A,93,80,47,3A,91, 
80,77,23,23,23,23, 10, F9, 18, DI , 52, C6, 7 

1055 DATA 81, C5, 7, 0,0, 41, 9, 0,97, BO, 41, 43 
,45,47,49,42,44, 46, 48, CI, C3,C5,C7,C9,C2 
1057 DATA C4.C6.C8, 1,3,5,7,2,4,6,8 
10000 RESTORE lOOOiC-0 

10010 FOR A--&8000 TO &8OBO1 READ A*i B-VAL 

("«<"+A*> jPOKE A,BiC«C*BiNEXT 

10020 IF CO 16877 THEN PRINT "FEJL I DAT 

A Mill" 
10030 RETURN 
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Uvet er ikke kun indtastninger, 
men ogsa faerdlg software . . . 

Alle far en tekstbehandling. Et regneark til at beregne okonomien 
med. Eller en database, hvor tetefonnumre og pladekartoteket er 
samlet. 

"Alt om Data" saalter hver maned fokus pa series software til alle 
datamater. Fra Commodore 64, Amstrad og Commodore til PC'er 
og Apple. 

Farverige reportager fra vores korrespondenter verden over sorger 
for mange timers spsendende laesning. 

Og sa er "Alt om Data" i ovrigt kendt for sine dybgaende og krrti- 
ske tests af de nye computere og tilbeheret tit dem. Her far du 
kobsvejledning. sa del batter. 

Det er ikke for ingenting, at vi er Danmarks sterste computer- 
blad. 



"Alt om Data" IkJOBf I din kiosk hver mined. Priaen er kun kr. 2635. Abonne- 
menl kan legnes pa lit.: 01 91 28 33. 



iCHflLLENGEi 



Commodore 64 




Et lille simpelt. men nyrtigt pro- 
gram. 

Indtast tiden 1 Danmark, og du far 
tiden i 15 andre storbyer. Pro- 
grammet kan let udvides. f.eks. 
hvis daddy tagertil Xirtram(Lang- 
bortistan) og du ikke kan finde by- 
en i programmet. 

Henrik J0rgensen 



0 DIM H0U£)*NKE 53288,6 A ^ 

:POKE 53281,0 

1 PRINT" <CLR>" i £t=" " 

?. gosur i en 

3 GOTO 300 
5 Hfl-5 

e s$=" " 

7 IF HQ<1>+U=24 THEH H0<1>=0-U 

e P^PIF H0a>+U>9 THEM SJ^"" = V*=TI* 

9 PRIMT"<HOME,CRSR NEB6>" 

:PRINT"BANSK TID: ";Sf; 
HO^+WCCRSR VENSTRE) 
:";HID«<V*.3.?>; ";RTfJHT*(V« .2> 

10 IF RIGHTtm,2>="59"0R RIGHWr'*, 
2>*"G0"THEN St*" ":GGTO 12 

11 GOTO 7 

12 FOR P=2 TO 16 

13 Vf-TI* 

14 U*=LEFTt<Y* , 2> : U=Vfit<U*> 

15 IF H0<P>+U=24 THEN H0<P>"8HI 
Id V=VfiL<V*> 

17 IF H0<P^*U>9 THFH 

20 PRIHT"(CRSR H0JRE13>",Si;H0<P>+U; 

"<CR3R VENSTRE) : ";MIB*<Y$#3#2) 

:S*=" " 
40 NEXT P 
50 GOTO 7 

100 print"<clr>" 

118 input "ihdtast bansk tid (xxxxxx 
> m ;h* 

115 0=VfiL<fl*>'IF 0>23S9S9 OR 0<9999 

THEN 160 
120 B*=LEFT*<fi*-2):fl=VAL<B*> 
130 Cr=RIGHT*<flJ,4>;TU="00 M +C* 
2O0 FOR P-l TO 1© 



a0 
220 
230 

240 
250 
260 
270 
230 
300 
310 



311 

312 
313 



350 
360 
370 
330 
390 
400 
410 
420 
430 
44G 
450 
460 
470 
430 
490 
495 
SFiO 



READ HO(P>:H0<P)=HO<P>+fl 
NEXT P 

DATA 0,23,19,16,2,7,0,11,22,1,18, 
21,4,2,11,1s 
FOR P=l TO 16 
IF H0CPX24 THEN 270 
HO<P>=H0<P>-24 
NEXT P 
RETURN 
REM . 

PRINT " CCLR , CRSR HOJRE 1 4 ) VERDENS 
URET" 

PRINT" <CRSR H0JRE14) ' 

PRINT"<CRSR H0JRE14)COPVRIGHT BY' 
PRINT'^CRSR NED, CRSR H0JRE6)J0RN 
FALK & HENRIK JGRGENSEtKCRSR NEB 
3>" 

PRINT"LONBON:" 
PR I NT "NEW YORK=" 
PRINT"L0S ANGELES : " 
PR I NT "MOSKVA -\ * 
PR I NT "PEKING : " 
PRINT"TOKYQ:" 
PRI NT " WELL INGT0H : " 
PRINT-SAG PfiULO:" 
PR I NT "NAIROBI : " 
PR I NT "MEXICO:" 
PRINT"GODTHAAB : " 
PRINT"BELHI : " 
PR I NT "TEHERAN : " 
PRINT"ANABS'R:" 
PR I NT "FAIRBANKS-: " 
PRINT" <HOME, CRSR NED7>" 
GflTO 12 
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DET TYKKE TILBUD: 



V 

Arets 
bandtilbud er 

STO-RT 




og koster bare 148 sma! 



HAST"-bandet 

indeholder samllige programmer til C64 og C128 fra del nye 

nummer af TAST!". 
Alle er gennemcheckede for fejl og har faet haje karaklerer hos 

programredaktionen. 

Har du diskettestation, kan du fa programmerne pa disk isledet for pa 

band. Og del koster slet ikke ekstra! 
Bare udfyld kuponen . . . 



SEND KUPONEN I DAG! 



Slip for at taste C64- 
programmerne ind . . . 
Fa dem fferdigl pa band! 

Jeg har: Indsal kr. 148 r pa giro 9 40 60 77 
Vedlagi en check pa kr. I48 r □ 



Navn: 



Adrcssc: 



Gnskes pa C64 band □ - C64 disk □ 



Sendes til: TAST Bandlilbud 
St. Kongensgade 72 
1264 Kobcnhavn K. 




dybde 




